адача срочно по Паскалю
В первой строке 2 числа M,N.Дальше описывается M СТРОК по N символов. Найти строку, которая по сумме больше остальных.
Пример

3 3

2 3 1
6 6 1
1 1 1
Ответ
13

var a:array[1..100,1..100]of integer;m,n,i,j,s,max:integer;beginreadln(m,n);for i:=1 to m do    begin  s:=0;        for j:=1 to n do               begin                  a[i,j]:=random(100);                   write(a[i,j]:4);                   s:=s+a[i,j];               end;         if s>max then            max:=s;           writeln;     end;writeln('S: ',max);end.