Составить подпрограмму сложения одномерных матриц и подпрограмму их сравнения — Pascal(Паскаль)

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.