Найти сумму элементов строк матрицы [A], размером NxM

uses crt;
const count=50;
type arr=array[1..count,1..count] of integer;
var vec:array[1..count] of integer;
i,j,n,m,sum:integer;
mas:arr;
 
procedure inputmas(var mas:arr; n,m:integer);
var
 i,j:integer;
begin
for i:=1 to n do
  for j:=1 to m do mas[i,j]:=random(50);
end;
 
procedure outputmas(mas:arr; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
  for j:=1 to m do write(mas[i,j]:4);
writeln;
end;
end;
 
begin
clrscr;
randomize;
write('n,m: ');
readln(n,m);
inputmas(mas,n,m);
outputmas(mas,n,m);
for i:=1 to n do begin
  sum:=0;
  for j:=1 to m do inc(sum,mas[i,j]);
  vec[i]:=sum;
  end;
writeln;
for i:=1 to n do writeln('dlya ',i,' stroki sum=',vec[i]);
readkey;
end.

uses crt;
var n,m,i,j,s,r:integer;
a:array[1..n,1..m]of integer;
begin
    clrscr;
    s:=0;
    r:=1;
    writeln('vvedit` kilkist elementiv riadka');
    readln(m);
    writeln('vvedit kilkist riadkiv');
    readln(n);
    for i:=1 to n do
    for j:=1 to m do a[i,j]:=random(100);
    
    for i:=1 to n do begin
        for j:=1 to m do write(a[i,j]);
        writeln;
        end;
    
    for i:=1 to n do
    for j:=1 to m do begin
            while i=r do begin
                            s:=s+a[i,j];
                            r:=r+1;
                         end;
            writeln('suma ',i,' riadka =',s);
                    end;
end.

min:=a[1];
imin:=1;
for i:=2 to n do
 if a[i]<min then
  begin
   min:=a[i];
   imin:=i;
  end;
for i:=1 to imin-1 do
 b[i]:=a[i];