Составить подпрограмму

uses crt;
var mas_1,mas_2,mas_3:array [1..100] of integer;
    n1,n2,i,j:integer;
BEGIN
repeat
Write('Enter size of array_1 = ');readln(n1);
Write('Enter size of array_2 = ');readln(n2);
until (n1=n2);
Writeln('Array_1 + Arra_2 = Array_3');
for i:=1 to n1 do
   begin
    mas_1[i]:=random(50)-25;
    mas_2[i]:=random(50)-25;
    mas_3[i]:=mas_1[i]+mas_2[i];
    Writeln(mas_1[i],' + ',mas_2[i],' = ',mas_3[i]);
   end;
END.

uses crt;
type arr=array [1..100] of integer;
var mas_1,mas_2,mas_3:arr;
    rez,n1,n2,i,j:integer;
 
procedure see_array(var a,b:arr;n,otvet:integer);
var i:integer;
begin
  otvet:=0;
  for i:=1 to n do
    begin
      if (a[i]=b[i]) then inc(otvet);
    end;
end;
 
BEGIN
repeat
Write('Enter size of array_1 = ');readln(n1);
Write('Enter size of array_2 = ');readln(n2);
until (n1=n2);
Writeln('Array_1 + Arra_2 = Array_3');
for i:=1 to n1 do
   begin
    mas_1[i]:=random(50)-25;
    mas_2[i]:=random(50)-25;
    mas_3[i]:=mas_1[i]+mas_2[i];
    Writeln(mas_1[i],' + ',mas_2[i],' = ',mas_3[i]);
   end;
 see_array(mas_1,mas_2,n1,rez);
 if (rez=n1) then Writeln('Array_1 = Array_2')
             else Writeln('Array_1 <> Array_2');
END.