Двумерный массив (10x10). Найти номер строки с наибольшей суммой (т.е найти сумму каждой строки, в затем сравнить их значения).

Const   N = 10;Var   A:array[1..N,1..N] of integer;   i,j:integer;   S:array[1..N] of real;BeginRandomize;WriteLn('Исходный массив:');For i:= 1 to N do    Begin    S[i]:=0;    For j:= 1 to N do        Begin        A[i,j]:=random(21)-10;        Write(A[i,j]:3,' ');        S[i]:=S[i]+A[i,j]        End;    WriteLn('  S[',i,'] = ',S[i])    End;j:=1;For i:= 1 to N do    if S[i]>S[j] then j:=i;WriteLn('Max(S) = S[',j,'] = ',S[j]);End.