unit Unit2;

interface

uses
  Classes, SysUtils, Unit1;
var
  i: integer;

function wczytajTablice(z: integer): typTablica;

procedure pokazTablice(tablica: typTablica);

procedure zsumujTablice(tablica1, tablica2: typTablica; var tablica3: typTablica);

implementation

 function wczytajTablice(z: integer): typTablica;
  var
   i:integer;
  begin
   randomize;
    for i:=0 to N-1 do
      wczytajTablice[i]:=random(z)+1;
  end;
procedure pokazTablice(tablica: typTablica);
 begin
  writeln('----');
  writeln('i=' ,i);
  for i:=0 to N-1 do
   writeln('element (',i:2,')=',tablica[i]:2);
 end;
procedure zsumujTablice(tablica1, tablica2: typTablica; var tablica3: typTablica);
 var
  i: integer;
 begin
  for i:=0 to N-1 do
  tablica3[i]:=tablica2[i]+tablica1[i];
 end;

end.