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

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.