Дана матрица чисел A(N,M). Написать программу, которая определяет номер строки, в которой сумма элементов матрицы минимальна

type
  tmatrix=array [1..100,1..100] of integer;
 
procedure creatematrix(var arg:tmatrix;an,am:byte);
var
  i,j:byte;
begin
  randomize;
  for i:=1 to an do begin
    for j:=1 to am do begin
      arg[i,j]:=random(50)+1;
      write(arg[i,j]:3);
    end;
    writeln;
  end;
end;
 
function minsumrow(var arg:tmatrix;an,am:byte;var asum:integer):byte;
var
  min:integer;
  i,j:byte;
begin
  min:=0;
  for i:=1 to am do
     min:=min+arg[1,i];
  minsumrow:=1;
  for i:=2 to an do begin
    asum:=0;
    for j:=1 to am do
      asum:=asum+arg[i,j];
    if asum<min then begin
      min:=asum;
      minsumrow:=i;
    end;
  end;
end;
 
var
  sum:integer;
  a:tmatrix;
  n,m:byte;
 
begin
  writeln('введите размер матрицы M x N :');
  readln(n,m);
  creatematrix(a,n,m);
  write('минимальная сумма элементов в строке ');
  writeln(minsumrow(a,n,m,sum) ,' равна ',sum);
  readln
end.