Организация программ с использованием процедур .использованием параметров-значений и параметров переменных

[Фрейтор 40-500]

дано два массива ,содержащее соответственно 4*4 и 3*4 вещественных компонентов. ввести оба массива,найти в каждом массиве сумму компонентов, не принадлежащих интервалы [-5,5] и определить , какая из найденных сумм меньше.найденные значения и оба исходных массива вывести на экран

код вывода первого массива
program prakt;
type mas=array[1..4,1..4] of integer;
var A,B:mas;
i,j:integer;
s1,s2:integer;
procedure MasInput<m,n:byte;var c:Mas>;
begin
writeln <'ввод массива'>;
for i:=1 to m do begin
for j:= to n do begin
read <c[i,j]>;
end;end;end;
procedure MasOut<m,n:byte;c:Mas>;
begin
writeln<'вывод массива'>;
for i:=1 to m do begin
for j:1 to n do begin
write <c[i,j]:4>;
end;writeln;end;end;

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАУЙСТА