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

Program program82;
uses crt;
type massiv=array[1..20,1..20] of integer;
var x,y,m:massiv;
    i,j,n,l,s,t,s1,s2:integer;
    
procedure osnova(n:integer; l:integer; var matriza:massiv);
begin
randomize;
 for i:=1 to n do
* *begin
* * for j:=1 to l do
* * *begin
* * * matriza[i,j]:=random(11)-5;
* * * write(matriza[i,j]:3);
* * *end;
* * writeln;
* *end;
* writeln;
end;
writeln;
 
function summa(n:integer; l:integer; m:massiv):real;
begin
 for i:=1 to n do
  *begin
* * for j:=1 to l do
     begin
      if m[i,j]<=1 then
       s:=s+m[i,j];
       summa:=s;
     end;
    end;
end;
writeln;
 
function trans(m:massiv; n:integer):real;
begin
* for i:=2 to n do
* *for j:=1 to i-1 do
* * begin
* * *t:=m[i,j];
* * *m[i,j]:=m[j,i];
* * *m[j,i]:=t;
* * end;
end;
writeln;
 
BEGIN
clrscr;
 osnova(5,9,x);
 summa(5,9,x);
 s:=s1;
 osnova(17,8,y);
 summa(17,8,y);
 s:=s2;
if s1>s2 then trans(x,5)
         else trans(y,17);
writeln;
 
END.
 
 
 
*

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.