Вывести на экран строку, сумма элементов которой максимальна

program z;
const n=5;m=8;
var A: array [1..n,1..m] of integer; 
      i,j,s,s1,min :integer;
   begin
   writeln ('Матрица A');
   for i:=1 to n do
   for j:=1 to m do
   a[i,j]:=random(21)-10;
   for i:=1 to N do begin
   for j:=1 to M do
   write (a[i,j]:4);
    writeln;
     end;
     begin
    s1:=0; 
    min := 1; 
    s := 10; 
    s1 := s1 + a[i, j];
    end;
     if s1 > s then begin
     min := i;
     s := s1;
     end;
     writeln;
   
     
  write(min, ':'); 
  for j:=1 to n do
   write(a[min, j]:3);
  readln;
end.

program z;
uses crt;
const n=5;m=8;
var A: array [1..n,1..m] of integer;
      i,j,s,k,summax,sum :integer;
begin
clrscr;
   writeln ('Ìàòðèöà A');
for i:=1 to n do
for j:=1 to m do
   a[i,j]:=random(21)-10;
for i:=1 to N do begin
for j:=1 to M do
   write (a[i,j]:4);
    writeln;
end;
begin
 summax:=a[1,1];
for i:= 1 to n do
begin
 sum:=0;
for j:= 1 to m do
 sum:=sum+a[i,j];
 if  sum>summax then
begin
 summax:=sum;
 k:=i;
end;
end;
end;
writeln(' ----------');
for j:=1 to m do
write(a[k,j]:4);
end.