Определить сумму чисел в каждой строке матрицы

Summ := 0;
for i := 1 to N do
  for j := 1 to M do
    Summ := Summ + A[i, j];

  uses TpCrt;
  const MaxArr = 100;
  var
    A       : array[1..MaxArr,1..MaxArr] of Integer;
    N,M     : Byte;
    i,j,num : Byte;
    S,SMin  : Integer;
 
  function SumWStroke(numS : Byte): Integer; //Подсчет суммы в строке
  var i : Byte; Sum : Integer;
  begin
    Sum:=0;
    for i:=1 to m do Sum:=Sum+A[NumS,i];
    SumWStroke:=Sum;
  end;
 
  Begin
    Write('Введите размерность матрицы N M: '); ReadLn(n,m);
    randomize;
    for i:=1 to n do begin
      for j:=1 to m do begin
        A[i,j]:=random(25);
        write(A[i,j]:3);
      end;
      writeln;
    end;
 
    SMin:=SumWStroke(1); Num:=1;
    Writeln('Summy:');
    for i:=1 to n do begin
      S:=SumWStroke(i);
      Write(s:4);
      if S<Smin then begin SMin:=S; Num:=i; end;
    end;
    writeln; writeln('Строка N ',Num,' с минимально суммой ',SMin,' :');
    for i:=1 to m do write(A[Num,i]:3);
    writeln;   Readln;
  End.

const n=5;
Var mas:array[1..n,1..n] of integer; i,j,imin:shortint; s,min:integer;
begin
randomize;
s:=0;
Writeln('Matrica:');
for i:=1 to 1 do
for j:=1 to n do
begin
mas[i,j]:=random(30)-10;
Write(mas[i,j],' ');
s:=s+mas[i,j];
end;
Write('Summa ',s,' ');
Writeln;
min:=s;
imin:=i;
for i:=2 to n do
begin
s:=0;
for j:=1 to n do
begin
mas[i,j]:=random(30)-10;
Write(mas[i,j],' ');
s:=s+mas[i,j];
end;
Write('Summa ',s,' ');
writeln;
if s<min
then begin min:=s; imin:=i;
end;
end;
Writeln('Minimal summ v ',imin);
readln;
end.