Ошибка ввода/вывода не могу найти

uses crt;
 
type pup = record
 s_name,              {oaieeey}
 name:    string;     {eiy}
 number,              {? a?oiiu}
 est:     integer;    {ioaiea}
 
end;
 
 
var       x:  pup;
          k,
          i,
         fs,                   { ðàçìåð ôàéëà (ò.å. êîë-âî çàïèñåé)}
     fordel,                    { çàïèñü äëÿ óäàëåíèÿ}
       from,  { (ïîêàçûâàòü 20 çàïèñåé) íà÷èíàÿ ñ }
        tot
    : integer;
          f,
         nf: file of pup;       {äîïîëíèòåëüíûé ôàéë (äëÿ óäàëåíèÿ çàïèñè íåîáõîäèì)}
         jf: pup;
         formenu: string;
         rk: char; { ñîäåðæèò íàæàòóþ êëàâèøè (readkey) }
 
{
  rk
  0 - ãëàâíîå ìåíþ
  2 - íàçàä
  3 - õç
}
procedure add(from, tot: integer);
begin
       begin
        ClrScr;
        Assign(f, 'base.dat');
        Reset(f);
        Seek(f, from);
 
         for i:= from to tot do
          begin{-----------}
            with x do
             begin
               read(f,x);
               write('¹ ',i,' ');
               write(s_name,' ');
               write(name,' ');
               write(number,' ');
               writeln(est,' ');
 
             end;
           end;{-----------}
 
           writeln('0 - âåðíóòüñÿ â ãëàâíîå ìåíþ');
           writeln('1 - âïåðåä');
           writeln('2 - íàçàä');
           writeln('3 - â ãëàâíîå ìåíþ');
 
            {if readkey = '0' then
             rk := '0'; }
             {close(f);}
       end;
end;
 
 
begin {++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
formenu:='1';
rk:='0';
from := 0;
tot:=20;
 
     Assign(f, 'base.dat');
     Reset(f);
     fs := FileSize(f);
     {
       Assign(f, 'base.dat');
     Reset(f);
     Seek(f, FileSize(f));     }
 
 
while true do
begin
 
 
    if rk = '0' then
       begin
 
            clrscr;
 
            writeln('1 - ïðîñìîòð çàïèñåé');
            writeln('2 - äîáàâèòü çàïèñü');
            writeln('3 - óäàëèòü çàïèñü');
            
   while keypressed do  { íóæíî äëÿ êîððåêòíîãî ñ÷èòûâàíèÿ íàæàòîé }
     rk := readkey;   {êëàâèøè íà êëàâ. (ò.ê. ïîñëå readln â rk ïîïàäàåò ìóñîð}
             
             rk:= readkey;
 
             writeln(rk);
 
       end;
 
{=========  Ïðîñìîòð ÁÄ  ==========}
if rk = '1' then
 begin
  repeat
      add(from,tot);
      rk:=readkey;
      if rk = '1' then
             begin
                  from := from + 20;
                  tot  := tot  + 20;
             end;
      if rk = '2' then
              begin
                  from := from - 20;
                  tot  := tot  - 20;
             end;
      if rk = '3' then
          rk := '0';
      if tot > FileSize(f) then
          tot := FileSize(f)-1;
  until rk = '0';
 end;
{=========---------------==========}
{=========  Äîáàâëåíèå çàïèñè â ÁÄ  ==========}
 
      if rk = '2' then
       begin
        ClrScr;
        Assign(f, 'base.dat');
        Reset(f);
        Seek(f, FileSize(f));
 
            with x do  { ìîæåò íàäî +1 åñëè áóäåò áàã}
             begin
               writeln('Åñëè ïåðåäóìàëè íàæìèòå *');
 
             if readkey <> '*' then
              begin
               write('Ââåäèòå ôàìèëèþ: ');  readln(s_name);
               write('Ââåäèòå èìÿ: ');      readln(name);
               write('Ââåäèòå ¹ ãðóïïû: '); readln(number);
               write('Ââåäèòå îöåíêó: ');   readln(est);
 
               write(f, x);
              end;
             end;
              rk:='0';
             writeln('Çàïèñü óñïåøíî äîáàâëåíà');
             delay(1000);
             //writeln('0 - âåðíóòüñÿ â ãëàâíîå ìåíþ');
 
        end;
 
 
{=========-------------------------==========}
{=========  Óäàëåíèå çàïèñè èç ÁÄ  ==========}
      if rk = '3' then
       begin
 
        ClrScr;
        write('Ââåäèòå ¹ çàïèñè êîòîðóþ íóæíî óäàëèòü: '); readln(fordel);
      Assign(f, 'base.dat');
      Assign(nf,'temprory.dat');
       ReWrite(nf);
       Reset(f);
        
      for i := 0 to FileSize(f)-1 do
      begin
      
        read(f,x);
        
     { if i = fordel then
        inc(i);}
        
        Write(nf,x);
      end;
      
 
        Close(nf);
        Close(f);
  Erase(f);                    {ВОТ ЗДЕСЬ ОШИБКА}
  ReName(nf,'7987base.dat');
 
  {Assign(f,'base.dat');
  Reset(f);}
 
       end;
 
 
{=========-------------------------==========}
 
end;
   //close(f);
end.