Record, удаление записи Опции

[Tan]

Вроде несложно, но что - то не выходит, вот отрывок, который по идее удаляет 1 запись с номером n. Не знаю как всё это загнать в цикл (с eof вроде не выходит), выручайте. K изначально равен 1. Може что - то и не так написал, буду рад любой помощи!

        seek(file1,n + k);
        read (file1, REC);
        seek (file1, n );
        write (file1, REC);
        inc (k);
     

[volvo]

for i := n+1 to filesize(f) do begin
  seek(f, i); read(f, rec);
  seek(f, i-1); write(f, rec); // перезаписываем следующую запись на место предыдущей
end;
seek(f, i, filesize(f) - 1);
truncate(f); // последнюю запись убираем физически из файла

(набирал прямо здесь, так что могут быть огрехи, но смысл именно такой...)