Создать программу с записями о товарах

Type
       Tovar    = record
                  NaimTov  : string;
                  TypeTov  : string;
                  KolTov   : integer;
                  CenTov   : integer;
        end;

Var   Mass : array [1..20] of Tovar;
      f    : file of Tovar;

Assign(F,FileName);rewrite(f);
 
...   ...   ...
 
Close(F);

Assign(F,FileName);Reset(F);
 
...   ...   ...
 
Close(F);

FileName:='TovarBas.dat'

Mass[1].NaimTov:='Колбаса';
Mass[1].TypeTov:='еда';
Mass[1].KolTov  :=1000;
Mass[1].CenTov  := 100;
write(f,Mass[1]);
 
Mass[2].NaimTov:='Сыр';
Mass[2].TypeTov:='еда';
{...   ...   ...
и т.д.}

for i:=1 to 20 do
 begin
   write('Наименование: ',i:2);readln(Mass[i].NaimTov);
   write('         Тип: ',i:2);readln(Mass[i].TypeTov);
   write('  Количество: ',i:2);readln(Mass[i].KolTov);
   write('        Цена: ',i:2);readln(Mass[i].CenTov);
   write(f,Mass[i]);
 end;

Type
       Tovar    = record
                  NaimTov  : string;
                  TypeTov  : string;
                  KolTov   : integer;
                  CenTov   : integer;
 
        end;
Var   Mass : array [1..10] of Tovar;
      f    : file of Tovar;
      i    : integer;
      FileName: string;
      procedure tovars;
begin
Assign(F, 'tovar.bat');rewrite(f);
for i:= 1 to 10 do
 begin
   write('naimenovanie ',i,' : ');readln( Mass[i].NaimTov);
   write('         tip ',i,' : ');readln( Mass[i].TypeTov);
   write('  koli4estvo ',i,' : ');readln( Mass[i].KolTov);
   write('        cena ',i,' : ');readln( Mass[i].CenTov);
   write( f, Mass[i]);
 end;
Close(F);
end;
procedure
begin
tovars;
end.

uses    crt;
const   n = 10;
Type
       Tovar    = record
                  NaimTov  : string[25];
                  TypeTov  : string[25];
                  KolTov   : Integer;
                  CenTov   : Integer;
 
        end;
Var   Mass     : array [1..n] of Tovar;
      f,fo     : file of Tovar;
      i,kol    : integer;
      FileName,
      FileNameO: string;
      ch       : char;
 
Function  FileExists(FileName : String) : Boolean;
Var       F : File;
Begin
 {$I-}Assign(F, FileName);Reset(F);Close(F);{$I+}
 FileExists := (IOResult = 0) And (FileName <> '');
End;  { FileExists }
 
procedure Menu;
begin
     gotoxy(1,1);
     writeln('Выберите пункт меню:');
     writeln('1. Создать файл данных');
     writeln('2. Удалить записи');
     writeln('3. Просмотр данных');
     writeln('4. Закончить работу');
     write  ('Ответ:');
end;
 
procedure tovars;
begin
     Assign(F, FileName);rewrite(f);
     for i:= 1 to n do
      begin
        write('naimenovanie ',i,' : ');readln( Mass[i].NaimTov);
        if Mass[i].NaimTov='' then break;
        write('         tip ',i,' : ');readln( Mass[i].TypeTov);
        if Mass[i].TypeTov='' then break;
        repeat
        {$I-}write('  koli4estvo ',i,' : ');readln( Mass[i].KolTov);{$I+}
          if IOResult<>0 then continue;
        until (Mass[i].KolTov>0)and(Mass[i].KolTov<=maxint);
          if Mass[i].KolTov=0 then break;
        repeat
        {$I-}write('        cena ',i,' : ');readln( Mass[i].CenTov);{$I+}
          if IOResult <>0 then continue;
        until (Mass[i].CenTov>0)and(Mass[i].CenTov<=maxint);
          if Mass[i].CenTov=0 then break;
          write( f, Mass[i]);
      end;
      Close(F);clrscr;
end;
 
procedure Readers;
var       k : integer;
begin
     kol:=0;
     if FileExists(FileName) then
      begin
        Assign(F, FileName);reset(f);k:=0;gotoxy(1,10);
      end
                             else
      begin
        writeln;writeln('Файл ',FileName,' отсутствует');exit;
      end;
     if not eof(f) then
      begin
       while (not eof(f))and(k<=n) do
        begin
          inc(k);read(f,mass[k]);
        end;
        kol:=k;
       end
                   else
       writeln('Файл ',FileName,' пуст');
     Close(F);
end;
 
procedure Vyvod;
var       k,i : integer;
begin
     Readers;
     if kol>0 then
      begin
       clrscr;
       gotoxy(1,10);
       writeln('Нм|     Наименование товара   |                Тип         | кол-во| цена ');
       writeln('--|---------------------------|----------------------------|-------|------');
       for k:=1 to kol do
        begin
          write(k:2,'|');
          write  (mass[k].NaimTov);
          for i:=0 to 25-length(mass[k].NaimTov) do write(' ');write(' | ');
          write  (mass[k].TypeTov);
          for i:=0 to 25-length(mass[k].TypeTov) do write(' ');write(' | ');
          write  (mass[k].KolTov:5);write(' | ');
          writeln(mass[k].CenTov:5);
        end;
      end;
end;
 
procedure DelTovars;
var       i,k : integer;
          t   : tovar;
begin
 readers;
 if kol>0 then
  begin
   repeat
    repeat
    gotoxy(1,23);clreol;write('Номер записи для удаления(0-выход): ');
    {$I-}
      read(k);
      if ioresult<>0 then continue;
      if k=0 then
       begin
         clrscr;readers;exit;
       end;
    until (k>0)and(k<=kol);{$I+}
    gotoxy(1,23);clreol;
    Assign(F ,FileName );reset(f)  ;
    Assign(Fo,FileNameO);rewrite(fo);
    for i:=1 to kol do
     begin
      read(f,t);
      if i<>k then write(fo,t);
     end;
    close(f);erase(f);
    rename(fo,FileName);close(fo);
    vyvod;
   until (k=0)or(kol=0);
 end;
   clrscr;readers;menu;
end;
 
BEGIN
    clrscr;
    FileName :='tovars.dat';FileNameO:='tovdel.dat';
    repeat
     Menu;
     ch:=readkey;
     case ch of
      #0   : begin
              ch:=readkey;continue;
             end;
      '1'  : begin
              clrscr;tovars;
             end;
      '2'  : begin
              clrscr;Vyvod;DelTovars;
             end;
      '3'  : begin
              Vyvod;
             end;
     end;
    until ch = '4';
END.