dima loh

program baza;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type product = record
  naim: string[10];
  tip: integer;
  cena: integer;
  mNETTO: integer;
  mBRUTTO: integer;
end;

tfile = file of product;

procedure sozd(var file_t: tfile);
  var a: product;
      i, k, z: integer;
begin
  rewrite(file_t);
  writeln('v-te kol-vo tovarov');
  readln(k);
  for i := 1 to k do begin
    writeln('v-v naimenovanie tovara');
    readln(a.naim);
    writeln('v-v tip tovara, chtoby oznakomitsya s tip listom, nazhmite 0');
    readln(z);
    while z = 0 do begin
      writeln('ovoshi i frukty = tip 1');
      writeln('xlebobulochnie = tip 2');
      writeln('kislomolochnie = tip 3');
      writeln('zamorozhine tovari = tip 4');
      writeln('myaso = tip 5');
      a.tip := z;
      readln(z);
      break;
    end;
    a.tip := z;
    writeln('v-v cenu tovara');
    readln(a.cena);
    writeln('v-v massu NETTO tovara');
    readln(a.mNETTO);
    writeln('v-v massu BRUUTO tovara');
    readln(a.mBRUTTO);
    write(file_t, a);
  end;
  CloseFile(file_t);
end;

procedure vivod(var file_t: tfile);
  var a: product;
      i, k: integer;
begin
  reset(file_t);
  k := filesize(file_t);
  writeln('NU VOT FILE');
  writeln('Naimenovanie   Tip   Cena   MassaNETTO   MassaBRUTTO');
  for i := 1 to k do begin
    read(file_t,a);
    writeln(a.naim : 10, a.tip : 10, a.cena : 10, a.mNETTO : 10, a.mBRUTTO : 10);
  end;
  CloseFile(file_t);
end;

procedure dobav(var file_t: tfile);
  var a: product;
      i, z, k: integer;
begin
  reset(file_t);
  writeln ('v-v naimenovanie tovara');
  readln(a.naim);
  writeln('v-v tip tovara, chtoby oznakomitsya s tip listom, nazhmite 0');
  readln(z);
  while z = 0 do begin
    writeln('ovoshi i frukty = tip 1');
    writeln('xlebobulochnie = tip 2');
    writeln('kislomolochnie = tip 3');
    writeln('zamorozhine tovari = tip 4');
    writeln('myaso = tip 5');
    readln(z);
    break;
  end;
  a.tip := z;
  writeln('v-v cenu tovara');
  readln(a.cena);
  writeln('v-v massu NETTO tovara');
  readln(a.mNETTO);
  writeln('v-v massu BRUTTO tovara');
  readln(a.mBRUTTO);
  write(file_t, a);
  CloseFile(file_t);
end;

var  f:tfile;
     namef: string;
     str : integer;
begin
  writeln ('v-v imya faila');
  readln(namef);
  assignfile(f,namef);
  sozd(f);
  vivod(f);
  writeln;
  writeln('MENU');
  writeln('napishite "1" chtobi sozdat noviy fail     ', 'napishite "2" chtobi vivesti uzhe sozdanniy file');
  writeln('napishite "3" chtobi dobavit novuu stroku ', 'napishite "4" chtobi sortirovat tovary po alfavitu');
  readln(str);
  case str of
    1 : sozd(f);
    2 : vivod(f);
    3 : dobav(f);
    else writeln('takih komand net')
  end;
  readln;
end.