Составить программу, вызывающую процедуры и функции созданного модуля.

program fds;
 var
j,l:string;{peremenna9 tipa stroka}
a,b,c,k:array[1..50] of integer;{obi9vlenie massiva}
i,n:integer;
  procedure sum(a,b:array of integer; var c:array of integer);{na4alo podprogrammi}
   begin
   for i:=0 to n do
    c[i]:=a[i]+b[i];
 
   end; {konec}
  procedure srav(a,b:array of integer; var j:string);{na4alo btoroi podprogrammi}
    begin
j:= 'massivy ravn';
    for i:=1 to n do
     begin
      if a[i]<>b[i] then j:='massivy ne ravni';{cpavnenie dvux   massivov}
  end;
    end;
  begin
 
   writeln('n');
   readln(n);
   for I:=1 TO  n do
    begin
   readln(a[i]);
   readln(b[i]);
    write(a[i],' ');
    end;
writeln;
    for i:=1 to n do
    write(b[i],' ');
    sum(a,b,k);
    srav(a,b,l);
    writeln;
    for i:=1 to n do
    write(k[i], ' ');
    writeln;
    writeln(l);
readln;
end.

unit massiv;
interface
var n:integer;
procedure sum(a,b:array of integer; var c:array of integer);{na4alo podprogrammi}
procedure srav(a,b:array of integer; var j:string);{na4alo btoroi podprogrammi}
implementation
procedure sum(a,b:array of integer; var c:array of integer);
var i:integer;
begin
for i:=0 to n do
c[i]:=a[i]+b[i];
end; {konec}
 
procedure srav(a,b:array of integer; var j:string);
var i:integer;
begin
j:= 'massivy ravn';
for i:=1 to n do
if a[i]<>b[i] then j:='massivy ne ravni';{cpavnenie dvux   massivov}
end;
end.

program fds;
uses crt,massiv;
var j,l:string;{peremenna9 tipa stroka}
    a,b,c,k:array[1..50] of integer;{obi9vlenie massiva}
    i:integer;
begin
clrscr;
write('Vvedite razmer massivov n=');
readln(n);
writeln('Vvedite massiv A:');
for i:=1 to  n do
readln(a[i]);
writeln('Vvedite massiv B:');
for i:=1 to  n do
readln(b[i]);
clrscr;
writeln('Massiv A:');
for i:=1 to  n do
write(a[i],' ');
writeln;
writeln;
writeln('Massiv B:');
for i:=1 to n do
write(b[i],' ');
writeln;
writeln;
sum(a,b,k);
writeln('Massiv K=A+B:');
for i:=1 to n do
write(k[i],' ');
writeln;
writeln;
srav(a,b,l);
writeln(l);
readln
end.