program faktura_Vat;
uses crt;
type towar = record
     nazwa: string;
     kategoria:string;
     cena:real;
     ilosc:integer;
     stawka_vat:integer;
     end;
     fakturaVAT = record
     data:string;
     towary:array[1..10] of towar;
     netto:real;
     podatek:real;
     brutto:real;
     end;
var faktura: fakturaVAT;
    plik : file of fakturavat;
    ile_pozycji:integer;
    i:integer;
begin
  clrscr;
  writeln('Ile pozycji faktury:'); readln(ile_pozycji);
  for i :=1 to ile_pozycji do
  begin
    write('Nazwa towaru: '); readln(faktura.towary[i].nazwa);
    write('Cena: '); readln(faktura.towary[i].cena);
  end;

  assign(plik,'faktura.txt');
  rewrite(plik);
  write(plik, faktura);
end.