Модульное программирование. процедуры-функции - Pascal

Program program82;
uses crt;
type massiv=array[1..17,1..9] of integer;
procedure Vvod(var m:massiv;n,l:byte);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to l do
m[i,j]:=random(11)-5;
end;
procedure Vyvod(var m:massiv;n,l:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
  for j:=1 to l do
  write(m[i,j]:3);
  writeln;
 end;
writeln;
end;
function Summa(m:massiv;n,l:byte):integer;
var s:integer;
    i,j:byte;
begin
s:=0;
for i:=1 to n do
for j:=1 to l do
if m[i,j]<=1 then s:=s+m[i,j];
summa:=s;
end;
procedure Trans(var m:massiv; n,l:byte);
var i,j:byte;
    t:integer;
begin
for i:=1 to n do
for j:=i to l do
 begin
  t:=m[i,j];
  m[i,j]:=m[j,i];
  m[j,i]:=t;
 end;
end;
 
var x,y:massiv;
    s1,s2:integer;
BEGIN
clrscr;
Vvod(x,5,9);
Vvod(y,17,8);
Vyvod(x,5,9,'X');
s1:=Summa(x,5,9);
writeln('Сумма элементов < 1 =',s1);
write('Нажмите Enter');
readln;
Vyvod(y,17,8,'Y');
s2:=Summa(y,17,8);
writeln('Сумма элементов < 1 =',s2);
write('Нажмите Enter');
readln;
if s1>s2 then
 begin
  writeln('Сумма в матрице X больше');
  Trans(x,5,9);
  Vyvod(x,9,5,'X');
 end
else
 begin
  writeln('Сумма в матрице Y больше');
  Trans(y,8,17);
  Vyvod(y,8,17,'Y');
 end;
readln
end.