Формирование массива через процедуру и нахождение строки с максимальной суммой через функцию

uses crt;
const nmax=20;{максимальный размер матрицы}
type  Tmas=array[1..nmax] of integer;{тип массив}
      Tmatr=array [1..nmax] of Tmas;{тип матрица}
function SumStr(x,y:byte;mt:Tmatr):byte;{функция поиска нужной строки}
var i,j,imax:byte;
    max,sum:integer;
begin
max:=-maxint-1;imax:=1;{за макс принимаем самое маленькое число типа integer}
for i:=1 to x do
   begin
     sum:=0;
     for j:=1 to y do
     sum:=sum+mt[i,j];{считаем сумму в строке}
     if sum>max then{если она больше предыдущей максимальной}
       begin
         max:=sum;{она максимум}
         imax:=i;{запоминаем ее номер}
       end;
   end;
SumStr:=imax;{присваиваем его значению функции}
end;
var a:Tmatr;
    b:Tmas;
    m,n,i,j,nstr:byte;
begin
clrscr;
randomize;
repeat
write('Vvedite razmer matricy:');
readln(m,n);
until (m>0)and(n>0)and(m<=nmax)and(n<=nmax);{проверяем правильность ввода}
writeln('Matrica:');
for i:=1 to m do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(20)-9;
        write(a[i,j]:5);
      end;
    writeln;
  end;
writeln('MaxStr=',SumStr(m,n,a));{выведем номер строки}
writeln('Massiv:');
for i:=1 to n do
   begin
     b[i]:=a[SumStr(m,n,a),i];{создадим линейный массив}
     write(b[i],' ');
   end;
readln
end.

uses crt;
const nmax=20;
type  Tmas=array[1..nmax] of integer;
      Tmatr=array [1..nmax] of Tmas;
function NomStr(x,y:byte;mt:Tmatr):byte;
var i,j,imax:byte;
    max,sum:integer;
begin
max:=-maxint-1;imax:=1;
for i:=1 to x do
   begin
     sum:=0;
     for j:=1 to y do
     sum:=sum+mt[i,j];
     if sum>max then
       begin
         max:=sum;
         imax:=i;
       end;
   end;
NomStr:=imax;
end;
procedure Massiv(x,y:byte;mt:tmatr; var ms:Tmas);
var i:byte;
begin
for i:=1 to y do
  begin
   ms[i]:=mt[Nomstr(x,y,mt),i];
   write(ms[i],' ');
  end;
writeln;
end;
 
var a:Tmatr;
    b:Tmas;
    m,n,i,j,nstr:byte;
    sm:integer;
begin
clrscr;
randomize;
repeat
write('Vvedite razmer matricy:');
readln(m,n);
until (m>0)and(n>0)and(m<=nmax)and(n<=nmax);
writeln('Matrica:');
for i:=1 to m do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(20)-9;
        write(a[i,j]:5);
      end;
    writeln;
  end;
writeln('MaxStr=',NomStr(m,n,a));
sm:=0;
for i:=1 to n do
sm:=sm+a[NomStr(m,n,a),i];
writeln('Summa=',sm);
writeln('Massiv:');
Massiv(m,n,a,b);
readln
end.