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

var  i,j,s,n,max:integer;  a:array[1..5,1..5]of integer;beginfor 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.