Не работает процедура Delete

Program slovarb_eng_rus__rus_eng;
Uses
    crt;
const
     NORM=$17;
label 6;
type spisok=record
     sl: string;
     pr: string;
end;
FT= file of spisok;
Var
   a:ft;
   size:longint;
   z:integer;
 
........
procedure delete( var a:ft);
var vibor:integer;
zk:spisok;
    slovo:string;
begin
clrscr;
 
    writeln('какое вы слово хотите удалить 1.Английское или 2.Русское');
    readln(vibor);
    if vibor=1 then begin
    assign (a,'work.txt');
    reset(a);
    writeln('Введите слово, которое хотите удалить');
    readln(slovo);
 
    while not eof(a) do begin
 
      read (a,zk);
      if zk.pr=slovo then begin
    zk.pr:=' ';
    write(a,zk);
 
    end;
 
    end;
    writeln('Слово: ',slovo,' удалено');
    close(a);
    end;
    if vibor=2 then begin
    assign (a,'work.txt');
    reset(a);
    writeln('Введите слово, которое хотите удалить');
    readln(slovo);
 
    while not eof(a) do begin
 
      read (a,zk);
      if zk.sl=slovo then begin
    zk.sl:=' ';
    write(a,zk);
 
    end;
    end;
     writeln('Слово: ',slovo,' удалено');
    close(a);
    end;
    end;
 
.........

  while not eof(a) do begin
    read(a,zk); //Теперь файловый указатель переместился на следующую запись.
    if zk.pr=slovo then begin
      zk.pr:=' '; //Изменили поле pr.
      //Здесь происходит перезапись следующей записи, которая расположена в файле
      //позже той, что была прочитана в переменную zk.
      write(a,zk);
    end;
  end;

  while not eof(a) do begin
    read(a,zk); //Теперь файловый указатель переместился на следующую запись.
    if zk.pr=slovo then begin
      zk.pr:=' '; //Изменили поле pr.
      Seek(FilePos(a) - 1); //Возврат файлового указателя на одну позицию назад.
      write(a,zk); //Перезаписываем ту запись, которая была ранее прочитана в переменную zk.
    end;
  end;