Дана целочисленная матрица. Найти чтроки с наибольшей суммой элеметнов. Вывести на печать номер строки и сумму её элементов

Program n1;

Uses CRT;

Const n=5;

Var a: array[1 ... n, 1 ... n] of integer;

s, i, j, k, s1: integer;

begin

For i:=1 to n do

begin

For j:=1 to n do

begin

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

write (a[i, j]:3) ;

end;

writeln;

end;

For i:=1 to n do

begin

For j:=1 to n do

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

if s1
s:=0;

end;

writeln ('Stroka ', k,' so znacheniem ', s1,' - naibolshaya') ;

readln

end.