Проверьте программку, господа программисты)

program obrabotka_files;
uses crt;
const t='tovar.dat';
type
tovar=record
            name:string [20];
            zena:real;
            kolich:longint;
            end;
var f: file of tovar;
s:tovar;
procedure out_fil;
var a:array [1..20] of tovar;
i, j:integer;
          begin
               assign(F,t);
{$I-}        { отключаем автоматический контроль }
               Reset (F);
               { получили код результата }
               if IoResult <> 0 then
               begin      { возникла ошибка! }
                    Write(' Ошибка при открытии файла: ');
                    Case IoResult of
                         1 : Writeln ('Файл не найден');
                         3 : Writeln ('Маршрут не найден');
                         4 : Writeln ('Слишком много открытых файлов');
                         5 : Writeln ('Доступ к файлу запрещен');
                         12 : Writeln ('Некорректный код доступа к файлам')
                        else
                         Writeln('Неизвестный код ошибки');
                            end
                        end;
   {$I+}       { включаем автоматический контроль   }
 
               i:=1;
               repeat
                     read (f,s);
                     a[i]:=s;
                     i:=i+1;
               until EOF(f);
               rewrite(f);
              for j:=1 to i-1 do
                              write (F,a[j]);
               repeat
                     writeln ('Введите наименование товара или * (признак конца ввода)');
                     readln (s.name);
                            if s.name<> '*' then
                                                begin
                                                     writeln ('Введите цену');
                                                     readln (s.zena);
                                                     writeln ('Введите количество');
                                                     readln (s.kolich);
                                                     write (F,s);
                                                end;
               until s.name='*';
 
               close(f);
          end;
{--------------------------------------------------------------}
procedure input_fil;
          begin
               assign(F,t);
 
               {$I-}        { отключаем автоматический контроль }
               Reset (F);
               { получили код результата }
               if IoResult <> 0 then
               begin      { возникла ошибка! }
                    Write(' Ошибка при открытии файла: ');
                         case IoResult of
                         1 : Writeln ('Файл не найден');
                         3 : Writeln ('Маршрут не найден');
                         4 : Writeln ('Слишком много открытых файлов');
                         5 : Writeln ('Доступ к файлу запрещен');
                         12 : Writeln ('Некорректный код доступа к файлам')
                              else
                                       Writeln('Неизвестный код ошибки');
                                            end
                                            end;
                                            {$I+}       { включаем автоматический контроль   }
 
               repeat
                     read (f,s);
                     writeln(s.name, ' ' , s.zena:5:2, ' ', s.kolich);
               until EOF(f);
               close(f);
          end;
{----------------------------------------}
begin
clrscr;
gotoxy (15,8);
writeln ('Программу разработал великий и ужастный гуру всех программеров');
gotoxy (10,10);
writeln ('Программа предназначена для ввода записей с клавиатуры');
gotoxy (15,11);
writeln ('записи их в файл и чтения из файла');
gotoxy (10,13);
writeln ('Запись в файл');
out_fil;
gotoxy (10,13);
writeln ('Чтение из файла');
 clrscr;
input_fil;
gotoxy (10,20);
writeln('Нажмите любую клавишу');
readln;
end.

uses crt;
const nmax=100;
type fail=file of real;
     mas=array[1..nmax] of real;
procedure WriteFile(var f:fail;a:mas;n:byte);
var i:byte;
    name:string;
begin
write('Имя файла для записи: ');
readln(name);
name:=name+'.txt';
assign(f,name);
rewrite(f);
for i:=1 to n do
write(f,a[i]);
close(f);
end;
procedure Readfile(var f:fail);
var x:real;
    name:string;
begin
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
writeln('Содержание файла:');
while not eof(f) do
 begin
  read(f,x);
  write(x:0:2,' ');
 end;
close(f);
end;
var a:mas;
    f:fail;
    n,i:byte;
begin
clrscr;
repeat
write('Размер масива до ',nmax,'=');
readln(n);
if not n in [1..nmax] then writeln('Неверное значение, повторите ввод.');
until n in[1..nmax];
writeln('Введите в массив ',n,' действительных чисел:');
for i:=1 to n do
 begin
  write('el[',i,']=');
  readln(a[i]);
 end;
WriteFile(f,a,n);
ReadFile(f);
readln
end.