Вывести на экран строку, сумма элементов которой максимальна. Формат вывода: Строка 2: 3 5 8 9 8 все это в паскале

var

i, j, s, n, max:integer;

a:array[1 ... 5,1 ... 5]of integer;

begin

for i:=1 to 5 do

begin

s:=0;

for j:=1 to 5 do

begin

a[i, j]:=random (10) ;

write (a[i, j],' ') ;

s:=s+a[i, j];

end;

if s>max then

begin

n:=i;

max:=s;

end;

writeln;

end;

writeln;

write ('Строка ', n,': ') ;

for j:=1 to 5 do

write (a[n, j],' ') ;

end.