Удалить запись из типизированного файла

program zapis;
uses crt;
type tip=(int,offline);
type th=record
  nfirm:string;
  pol:string;
  cost:integer;
  vremya:integer;
  case t:tip of
  offline:(power:0..1500);
  int: ( time:5..15);
  {int: ( power:0..4000; time:2..6);}
  end;
var a:array[1..10]of th;
   q,j,i,n,c:integer;
    e:th;
   t:tip;
   f:file of th;
   key,ibp,l:integer;
 
  procedure vfile;
   begin
    assign(f,'f:\rzror');
    rewrite(f);
    for i:=1 to n do
     begin
      write(f,a[i]);
     end;
    writeln('vvod v file vipolnen');
    readln;
    close(f);
   end;
   procedure izfile;
    begin
     clrscr;
     assign(f,'f:\rzror.txt');
{$I-}reset(f); {$I+}
     i:=0;
     while not eof(f) do
      begin
       i:=i+1;
       read(f,a[i]);
       write(a[i].nfirm);
       write(a[i].cost);
       write(a[i].vremya);
       writeln;
      end;
      close(f);
      readln;
   end;
   procedure klava;
    begin
     writeln('vvedite kol-vo firm');
     readln(n);
     if (n<0) or (n>10) then writeln('error')
     else
      begin
      for i:=1 to n do
       begin
        writeln('Viberite tip ibp ');
        writeln('1:off-line');
        writeln('2:line-interactive');
        readln(l);
        case l  of
        1: a[i].t:=offline;
        2: a[i].t:=int;
        end;
        case a[i].t of
        offline:
         begin
          writeln('vvedite moshnost ');
          readln(a[i].power);
         end;
        int:
         begin
          writeln('vvedite vremya perehoda');
          readln(a[i].time);
         end;
       end;
      write('vvedite imya firmi: ');
      readln(a[i].nfirm);
      write('vvedite stoimost: ');
      readln(a[i].cost);
      write('vvedite vremya  raboti pri otklu4enii pitaniyaÿ: ');
      readln(a[i].vremya);
    end;
  end;
end;
 
    procedure sort;
      begin
        for i:=1 to n do
         for j:=1 to n-1 do
         if a[j].nfirm>a[j+1].nfirm then
         begin
          e:=a[j];
          a[j]:=a[j+1];
          a[j+1]:=e;
 
 
         end;
         writeln('sort_completed');
         readln
    end;
    procedure vivodekr;
     begin
     for i:=1 to n do
     if (a[i].nfirm[1]='u') or (a[i].nfirm[1]='U') then
      begin
       writeln('***********');
       writeln('BblBoD:');
       if a[i].t=offline then writeln('tip ibp OFFLINE');
       if a[i].t=int then writeln('tip ibp INTERAKTIV');
       if a[i].t=offline then writeln('moshnost:',a[i].power);
       if a[i].t=int then writeln('vremya:',a[i].time);
       writeln('imya firmi : ', a[i].nfirm);
       writeln('stoimost: ', a[i].cost);
       writeln('Vremya raboti pri otklu4enii pitaniya :', a[i].vremya);
       writeln;
      end;
       writeln('programa zavershena nazmite ENTER');
       readln;
    end;

{будем удалять записи}
reset(f);
k:=0;i:=0;
while i<=filesize(f)-2-k do{последнюю пока не проверяем, выйдем за файл}
 begin
  seek(f,i);
  read(f,z);
  if z.naz='Информатика' then
   begin
    k:=k+1; {считаем}
    for j:=i to filesize(f)-2 do{идем вперед}
     begin
      seek(f,j+1);{переставляем - сдвигаем - записи вверх на 1}
      read(f,b);
      seek(f,j);
      write(f,b);
     end
   end
  else i:=i+1;{если нет вперед}
 end;
seek(f,filesize(f)-1-k);{проверяем последнюю, она сдвинулась на к вверх}
read(f,z);
if z.naz='Информатика' then k:=k+1;
seek(f,filesize(f)-k);{встаем в последнюю не удаленную запись}
truncate(f);{обрезаем файл}
close(f);