Получить сумму двух прямоугольных матриц в подпрограмме

const strok = 100; stolbcov = 100;
var
i,j,m,n: byte;
arr1,arr2: array [1..strok,1..stolbcov] of integer;
sum: integer;
 
procedure get(mass: array [1..strok,1..stolbcov] of integer);
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
write(mass[i,j],' ');
end;
writeln;
end;
end;
 
function s(mass1,mass2: array [1..strok,1..stolbcov] of integer;var summa: integer): integer;
begin
summa:=0;
for i:=1 to n do
for j:=1 to m do
begin
summa:=summa+mass1[i,j]+mass2[i,j];
end;
end;
 
begin
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
arr1[i,j]:=random(134);
arr2[i,j]:=random(134);
end;
writeln;
end;
writeln('1 массив:');
get(arr1);
writeln('2 массив:');
get(arr2);
writeln();
s(arr1,arr2,sum);
writeln('Сумма = ',sum);
end.