Создать базу данных склад - Turbo Pascal - Ответ 576179

Program z35;
uses crt;
type
   sklad=record
     name:string[15];
     kol:integer;
   end;
var
  n,i,kz:integer;
  f:file of sklad;
  ved:array[1..100] of sklad;
  isk:string;
  found:boolean;
begin
  kz:=0;
  assign(f,'sklad.dat');
  if fileexists('sklad.dat') then
  begin
    reset(f);
    while not eof(f) do
    begin
      kz:=kz+1;
      read(f,ved[kz]);
    end;
    close(f);
  end;
  repeat
     cls;
     writeln('---------------------------------------------');
     writeln('1.Udality izdelie');
     writeln('2.Prosmotr zapisey');
     writeln('3.Obnovity');
     writeln('0.VYHOD');
     writeln('---------------------------------------------');
     writeln('Vedite nomer vybronogo vida raboty: ');readln(n);
     cls;
     case n of
         0: break;
         1: begin
              write('Vedite nazvanie udaliaemogo izdelia');readln(isk);
              found:=false;
              for i:=1 to kz do
                if ved[i].name=isk then
                begin
                  found:=true;
                  for n:=i to kz-1 do
                  begin
                    ved[n].name := ved[n+1].name;
                    ved[n].kol  := ved[n+1].kol;
                  end;
                  kz:=kz-1;
                end;
              if found then
                 writeln('Udalenie uspeshno')
              else
                 writeln('Takogo izdelia net');
            end;
         2: begin
              for i:=1 to kz do
              writeln(ved[i].name,'  ',ved[i].kol);
            end;
         3: begin
              writeln('vedite nazvanie izmeniaemogo izdelia');
              found:=false;
              for i:=1 to kz do
                 if ved[i].name=isk then
                 begin
                    found:=true;
                    writeln('vedi nazvanie izdelia');
                    readln(ved[i].name);
                    writeln('vedite kolichestvo izdelia');
                    readln(ved[i].kol);
                 end;
                 if not found then
                 begin
                   writeln('takoy ryby net');
                   writeln('hotite dobavite novoe izdelie? 1.da 2.Net');
                   readln(n);
                 if n=1 then
                 begin
                  if kz=100 then
                   writeln('Baza perepolnena')
                  else kz:=kz+1;
                   writeln('vedite nazvanie novogo izdelia');
                   readln(ved[kz].name);
                   writeln('vedite kolichestvo izdelia');
                   readln(ved[kz].kol);
                 end;
                 end;
          until false;
          if cancreatefile('рыболов.dat') then {файл создать можно}
          begin
            rewrite(f);
            for i:=1 to kz do
              write(f,fish[i]);
              close(f);
            end;
end.