решите пожалуйста программу на паскале

[BERT]

вот условие

в матрице М(7,7).Определить номер строки сумма элементов, которой наибольшая

[capta1n]

надо поиском воспользоваться таких задач было решено уйма

[capta1n]

program mas;
const
 n = 7;
var
 m : array [1..n,1..n] of integer;
 i,k,l : 0..n;
 max,sum : integer;
begin

  randomize;
  for i:=1 to n do
  begin
    for k:=1 to n do
    begin
      m[i,k]:=random(10);
      write(m[i,k],'|')
    end;
    writeln
  end;

  max:=-maxint;
  l:=0;
  for i:=1 to n do
  begin
    sum:=0;
    for k:=1 to n do sum:=sum+m[i,k];
    if sum>max then
    begin
      max:=sum;
      l:=i
    end
  end;

  if l<>0 then writeln (l,' stroka; summa= ',max);

  readln

end.

[BERT]

ооо..от души спасибо!))

[capta1n]

отзыв не мог бы оставить - весы под моей аваторкой спасибо