В двумерных массивах A[N* N] и В[M *M] определить сумму чисел в каждой строке

Program matric;
Uses crt;
 var b:array [1..100,1..100] of integer;
     k:array [1..100] of integer;
     i,j,s,n,min,nom:integer;
begin
clrscr;
 Writeln (' vvedite razmernost matrici ');
 Readln (n);
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
writeln;
writeln ('Cymma el-ov strok matricy ');
for i:=1 to n do  begin
                      s:=0;
                      for j:=1 to n do
                      s:=s+b[i,j];
                      k[i]:=s;
                      end;
for i:=1 to n do
write (k[i],' ');
Writeln;
min:=k[1];
 for i:=1 to n do
  if k[i]<=min then
     nom:=i;
writeln;
Writeln ('nomer stroki s min el -om = ',nom);
Writeln;
writeln ('cama stroka ');
for i:=1 to n do
 begin
 if i=nom then
 for j:=1 to n do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
Readln
end.

for j:=1 to n do
write(b[nom,j]:4);