Дана матрица размера M × N. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер, а также значение наибольшей суммы.

const
  n = 5;
  m = 5;
var
  Matr: Array[1..n, 1..m] of Integer;
  Summa, Maximal: Integer;
  Index, i, j: Byte;
begin
  Randomize;
  Summa:=0; Maximal:=0;
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    Summa:=0;
    for j:=1 to m do
    begin
      Matr[i, j]:=Random(20);
      write(Matr[i, j]:4);
      Inc(Summa, Matr[i, j]);
    end;
    if Summa > Maximal then
    begin
      Maximal:=Summa;
      Index:=i;
    end;
    writeln;
  end;
  writeln('Максимальная сумма в строке ', Index, ': ', Maximal);
end.

const
  Max_Value = 10;
var
  Matr: Array[1..Max_Value, 1..Max_Value] of Integer;
  Summa, Maximal: Integer;
  Index, n, m, i, j: Byte;
begin
  Randomize;
  Summa:=0; Maximal:=0;
  write('N: ');
  readln(n);
  write('M: ');
  readln(m);
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    Summa:=0;
    for j:=1 to m do
    begin
      Matr[i, j]:=Random(20);
      write(Matr[i, j]:4);
      Inc(Summa, Matr[i, j]);
    end;
    if Summa > Maximal then
    begin
      Maximal:=Summa;
      Index:=i;
    end;
    writeln;
  end;
  writeln('Максимальная сумма в строке ', Index, ': ', Maximal);
end.