Выкидывает из работающей программы

program task3;
 uses crt;
 type
  tf=string[20];
  date=record day:1..31; mon:1..12; year:1..99 end;
  sklad=record name:tf; data:date; price:real; count:integer end;
 var
  filename:tf;
  r:byte;
 procedure vvod(fname:tf);
  var
   f:file of sklad;
   sk:sklad;
   begin
    clrscr;
    assign(f,fname);
    rewrite(f);
    write('Íàèìåíîâàíèå òîâàðà ');
    readln(sk.name);
    writeln('Ïðèçíàê îêîí÷àíèÿ ââîäà - ïóñòî äëÿ íàèìåíîâàíèÿ òîâàðà.');
    while sk.name<>''do
     begin
      with sk do
       begin
        writeln('Äàòà ïîñòóïëåíèÿ');
        write('Äåíü '); readln(data.day);
        write('Ìåñÿö '); readln(data.mon);
        write('Ãîä '); readln(data.year);
        write('Öåíà çà åäåíèöó òîâàðà '); readln(price);
        write('Êîëè÷åñòâî â øò. '); readln(count);
       end;
       write(f,sk);
       write('Íàèìåíîâàíèå òîâàðà ');readln(sk.name);
      end;
      writeln('Äëÿ ïðîäîëæåíèÿ íàæìèòå <Enter> ');
      repeat until keypressed;
      close(f);
     end;
 procedure look(fname:tf);
  var
   f:file of sklad;
   sk:sklad;
   i,code:integer;
    begin
     clrscr;
     assign(f,fname);
     {$-}
     reset(f);
     {$+}
     code:=ioresult;
     if code <> 0 then
      begin
       writeln('Ôàéëà ñòàêèì èìåíåì íå ñóùåñòâóåò.');
       delay(2000);
      end;
     i:=0;
     while not eof(f) do
      begin
       read(f,sk);
       with sk do
        begin
         i:=i+1;
         writeln('Çàïèñü íîìåð ',i);
         writeln('Íàèìåíîâàíèå òîâàðà ',name);
         writeln('Äàòà ïîñòóïëåíèÿ ',data.day,'/',data.mon,'/',data.year);
         writeln('Öåíà çà åäåíèöó òîâàðà ',price:9:2);
         writeln('Êîëè÷åñòâî â øò. ',count);
         delay(1000);
        end;
       end;
     writeln('Äëÿ ïðîäîëæåíèÿ íàæìèòå <Enter>');
     repeat until keypressed;
    end;
 procedure correct(fname:tf);
  var
   f:file of sklad;
   i,code:integer;
   sk:sklad;
    begin
    clrscr;
    assign(f,fname);
    {$-}
    reset(f);
    {$+}
    code:=ioresult;
    if code<>0 then
     begin
      writeln('Ôàéë íå íàéäåí.');
      delay(2000);
     end;
    i:=filesize(f);
    writeln('Ôàéë ñîäåðæèò ',i,' çàïèñåé.');
    write('Êàêóþ áóäåòå êîððåêòèðîâàòü? (0 - êîíåö)');
    readln(i);
    while i>0 do
     begin
      seek(f,i-1);read(f,sk);
      with sk do
       begin
        writeln('Çàïèñü íîìåð ',i);
        write('Íàèìåíîâàíèå òîâàðà ',name,'?'); readln(name);
        writeln('Äàòà ïóñòóïëåíèÿ ',data.day,'/',data.mon,'/',data.year);
        write('Äåíü? '); readln(data.day);
        write('Ìåñÿö? '); readln(data.mon);
        write('Ãîä? '); readln(data.year);
        write('Öåíà çà åäåíèöó òîâàðà ',price:9:2,'?'); readln(price);
        write('Êîëè÷åñòâî â øò. ',count,'?'); readln(count);
       end;
      seek(f,i-1);
      write(f,sk);
      write('Êàêóþ áóäåòå êîððåêòèðîâàòü? (0 - êîíåö)');
      readln(i);
     end;
    writeln('Äëÿ ïðîäîëæåíèÿ íàæìèòå <Enter>');
    repeat until keypressed;
    close(f);
   end;
 procedure appenf(fname:tf);
  var
  f:file of sklad;
  sk:sklad;
  code:byte;
   begin
    clrscr;
    assign(f,fname);
    {$-}
    reset(f);
    {$+}
    if code<>0 then
     begin
      writeln('Ôàéë íå íàéäåí.');
      delay(2000);exit;
     end;
    seek(f,filesize(f));
     writeln('Ïðèçíàê îêîí÷àíèÿ ââîäà - ïóñòî äëÿ íàèìåíîâàíèÿ òîâàðà.');
     write('Íàèìåíîâàíèå òîâàðà '); readln(sk.name);
     while sk.name<>'' do
      begin
       with sk do
        begin
         writeln('Äàòà ïîñòóïëåíèÿ ');
         write('Äåíü '); readln(data.day);
         write('Ìåñÿö '); readln(data.mon);
         write('Ãîä '); readln(data.year);
         write('Öåíà çà åäåíèöó òîâàðà '); readln(price);
         write('Êîëè÷åñòâî â øò. '); readln(count);
        end;
       write(f,sk);
       write('Íàèìåíîâàíèå òîâàðà '); readln(sk.name);
      end;
     writeln('Äëÿ ïðîäîëæåíèÿ íàæìèòå <Enter>');
     repeat until keypressed;
     close(f);
    end;
{----------------------------------------------------}
 begin
  clrscr;
  repeat
   write('Ââåäèòå èìÿ ôàéëà: '); readln(filename);
   clrscr;
   gotoxy(20,8); write('1 - Ôîðìèðîâàíèå íîâîé áàçû äàííûõ');
   gotoxy(20,10); write('2 - Ïðîñìîòð áàçû äàííûõ');
   gotoxy(20,12); write('3 - Êîððåêòèðîâêà');
   gotoxy(20,14); write('4 - Äîáàâëåíèå çàïèñè â êîíåö áàçû');
   gotoxy(20,16); write('5 - Âûõîä');
   gotoxy(20,18); write('Ðåæèì? '); readln(r);
    case r of
     1: vvod(filename);
     2: look(filename);
     3: correct(filename);
     4: appenf(filename);
    end;
  until
  r=5;
 end.

//...
     if code <> 0 
      then begin
       writeln('Файла стаким именем не существует.');
       delay(2000);
      end
      else begin
       i:=0;
       while not eof(f) do
//...
        repeat until keypressed
       end
      end;
//...