удаление строки в текстовом файле и поиск.

procedure SearchInTextFile(FN:string);
 begin
   assign(f,'Baza.txt');
{$I-}
   reset(f);
 {$I+}
 If Group[i].name=FN  then        {FN - функция считывания с  клавы}
   i:=1;
    While not Eof (f) and (i <= 10) do
    begin
      ReadLn (f,Group[i].name);
      ReadLn (f,Group[i].address);
      ReadLn (f,Group[i].sex);
      ReadLn (f,Group[i].Year);
      ReadLn (f,marr);
      ReadLn (f,Group[i].Salary);
      if marr=1 then Group[i].Married:=true else Group[i].Married:=false;
      inc(i);
    end;
   close(f);
   count:=i-1;
end;
 
if   {Button Search}
    (mouse_x>570) and
    (mouse_x<620) and
    (mouse_y>455) and
    (mouse_y<475) and
    (butt=1) then
   begin
      OpenF(220,200);{окошко где вводится текс}
      SearchInTextFile(FName);
      Table; {прорисовка таблицы}
      Data; {размещение записей из файла в определенный места таблицы}
   end;

while not eof(f) do
 begin
  readln(f,s);
  i:=i+1; 
  if (i >=n)and(i<=k) then writeln(f,s);
 end;

var f,g:text;
     s:string;
     n,k,i:integer;
begin
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  i:=i+1; 
  if (i <=n)and(i>=k) then writeln(g,s);//переписываем строки до интервала и после интервала
 end;
close(f);
close(g);
end.