Модуль в базе данных, перенос строки из одного файла в другой

procedure udalenie (var a:ft);
Var
             n,m:integer;
             i:integer;
             e:FIO;
begin
             clrscr;
             i:=1;
             reset(a);
             writeln ('Введите номер записи которую хотите удалить');
             readln(n);
             m:=filesize(a)-n;
             seek(a,n);
             while not eof(a) do
begin
             read (a,e);
             i:=i+1;
end;
             close (a);
             reset (a);
             seek (a,n-1);
             truncate (a);
             close (a);
             reset (a);
             seek (a,n-1);
             for i:=1 to m do
             write (a,e);
             writeln('0-выйти,любой символ-продолжить');
end;

      assign(sell, 'sell.dat'); //открыли файл с итогами
      reset(sell);
      seek(sell, month); //переместились на нужный месяц
      read(sell, t); //прочитали текущее "итого" из файла
      t := t + oplata; //сложили с оплатой
      seek(sell, month); //переместились на нужный месяц
      write(sell, t); //перезаписали новое "итого" в файл
      close(sell) //закрыли файл
    end
end;
 
begin
end.

      assign(sell, 'sell.dat'); //открыли файл с итогами
      reset(sell); //переместились в начало
      read(sell, t); //прочитали текущее "итого" из файла
      t := t + oplata; //сложили с оплатой
      reset(sell); //переместились в начало
      write(sell, t); //перезаписали новое "итого" в файл
      close(sell) //закрыли файл
    end
end;
 
begin
end.