zapisz

unit zapisz;

interface

uses Crt;

type baza=array[1..2,1..5] of integer;

procedure zapisz(sklad: baza; gdzie: string);

implementation

procedure zapisz(sklad: baza; gdzie: string);
var
  i, j: byte;
  plik: text;
  strS: string;
  DoZapisania: string;
begin

  Assign(plik, gdzie);
  Rewrite(plik);
  DoZapisania := '';

  for i := 1 to 2 do
  begin
    for j := 1 to 5 do
    begin
      str(sklad[i, j], strS);
      DoZapisania := DoZapisania + strS + ' | ';
    end;
    Writeln(plik, DoZapisania);
    DoZapisania := '';
  end;

  Writeln(plik, DoZapisania);
  Close(plik);
  ClrScr;
  Writeln('Zapisane :)');
  Readln;
end;

end.