Удаление строки из текстового файла

 
type      dann = record
          pun_nazn: string;
          pometki: string;
          chas: byte;
          min: byte;
          end;
          mas = array [1..10] of dann;
var i, n, k: byte; f:text; s:string; e: mas;
begin
writeln('Введите название не работающей станции');
readln(s); k:=0;
assign (f, 'file2.txt');
reset(f);
readln(f,n);
if n> 10 then 
  writeln('Ввод данных не был произведен, количество поездов должно быть меньшее или равное 10. Переделайте, пожалуйста, файл и запустите программу заново.')
else
  begin
  for i:=1 to n do
     begin
      readln(f,e[i].pun_nazn);
      if (UpperCase(e[i].pun_nazn)<>UpperCase(s)) then inc(k);
      readln(f,e[i].pometki);
      readln(f,e[i].chas);
      readln(f,e[i].min);
     end;                   
    close(f);
  end;   
rewrite(f);
writeln(f,k);
for i:=1 to n do
 if (UpperCase(e[i].pun_nazn)<>UpperCase(s)) then
begin
writeln( f, e[i].pun_nazn);
writeln( f, e[i].pometki);
writeln( f, e[i].chas);
writeln( f, e[i].min);
end;
close (f);
end.