Массивы

max:=0;
str:=1;
for j:=1 to n do
 max:=max+a[1,j];
 
for i:=2 to n do
 begin
 sum:=0;
   for j:=1 to n do
   sum:=sum+a[i,j];
   if sum>max then
    begin
      str:=i;
      max:=sum;
    end;
 end;
 
writeln('Nomer stroki ',str,' Summa ',max );

Program minimum;
Uses crt;
 var b:array [1..100,1..100] of integer;
     a:array [1..100] of integer;
     i,j,n,s,max: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;
for i:=1 to n do begin s:=0;
                      for j:=1 to n do
                      s:=s+b[i,j];
                      a[i]:=s;
                      end;
Writeln (' Summa el-ov v kazhdoi stroke ');
for i:=1 to n do
write (a[i]:4);
writeln;
Write ('Homer stroki s bolshei summoi = ');
max:=a[1];
For i:=1 to n do
  if a[i]>max then write(i,' ');
Readln
end.