Удаление выбранной записи в файле (Delphi).

[iron_mik]

Дан типизированный файл stud.dat с информацией о студентах - записей:

type
  ...
  bal=array [1..10] of real;
  TStud=record
        FIO: string [80];
        Year: TDateTime;
        MedB: bal;
        Kurs: byte;
        Group: byte;
  end;
  fil = file of TStud;
var
  f:fil;

Так вот, есть процедура удаления выбранной записи в файле, которую я не могу понять:

procedure TDelete.SpeedButton1Click(Sender: TObject);
var k: byte;
//удаление записи
begin
  k := strtoint(edit1.Text);
  reset(f);
  seek(f, filesize(f) - 1); {1}
  read(f, s);                 {2}
  seek(f, k - 1);            {3}
  write(f, s);                 {4}
  seek(f, filesize(f) - 1);  {5}
  truncate(f);               {6}     
  closefile(f);
  displayall(MainForm.SGstud);
  Delete.close;
end;

k - это номер студента, т.е. номер записи, которую нужно удалить.
Как я понимаю на примере:
Например даны записи: 1 2 3 4 ; и k=2:
{1} 1 2 3_ 4 ,где "_" - это указатель
{2} Читаем 3-ью запись
{3} 1_ 2 3 4
{4} 1 3_ 3 4
{5} 1 3 3_ 4
{6} 1 3 3 - У меня остается только это
Хотя в программе все работает - удаляется только 2 запись. Почему?
Я кажется что-то неправильно понимаю, объясните пожалуйста!