Составить подпрограмму определения номера строки матрицы с максимальной характеристикой. Для вычисления характеристики и

program Project1;
 
const
  maxrow = 20;
  maxcol = 20;
 
type
   TArr2int = array [1..maxrow,1..maxcol] of integer;
 
 
procedure RandomInArr(var arr: TArr2int; var nn,mm: integer; leftval,rightval: integer );
{Процедура для ввода пользователем информации в двумерный массив}
var
  i,j: integer;
begin
  write('Введите значение количества строк в двумерном массиве (не более ',maxrow,'): ');
  repeat
    Readln(nn);                         { Ввод значения количества строк}
    if (nn < 1) or (nn > maxrow) then   { Условие для проверки вхождения числа в диапазон}
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;             { Цикл остановится, когда число будет входить в заданный диапазон значений}
  until false;
  write('Введите значение количества столбцов в двумерном массиве (не более ',maxcol,'): ');
  repeat
    Readln(mm);                         { Ввод значения количества столбцов}
    if (mm < 1) or (mm > maxcol) then   { Условие для проверки вхождения числа в диапазон}
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;      { Цикл остановится, когда число будет входить в заданный диапазон значений}
  until false;
  for i:= 1 to nn do
      for j:= 1 to mm do
        arr[i,j]:= leftval + random(rightval - leftval + 1);
end;
 
 
procedure InfOutArr(arr: TArr2int; nn,mm: integer);
{Процедура для вывода двумерного массива в консоль}
var
  i,j: integer;
begin
  for i:= 1 to nn do
    begin
      for j:= 1 to mm do
        write(' ',arr[i,j]:5);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
end;
 
function SumPosElemArr(arr: TArr2int; nconst,mm: integer): integer;
{Функция для вычисления суммы положительных элементов строки двумерного массива в консоль}
var
  i,j: integer;
  sum: integer;
begin
  sum:= 0;
  for j:= 1 to mm do
    if arr[nconst,j] > 0 then
      sum:= sum + arr[nconst,j];
  SumPosElemArr:= sum;
end;
 
 
function ArethRowArr(arr: TArr2int; nconst,mm: integer): real;
{Функция для вычисления среднего арифметического элементов строки двумерного массива в консоль}
var
  i,j: integer;
  sum: integer;
begin
  sum:= 0;
  for j:= 1 to mm do
    sum:= sum + arr[nconst,j];
  ArethRowArr:= sum/mm;
end;
 
 
var
  x,y: TArr2int; { Переменные для хранения двумерных массивов}
  n,m: integer; { Переменные для хранения значений количества строк и столбцов}
  i,j: integer; { Вспомогательные переменные для организации циклов}
  indrow: integer; { Переменная для хранения номера искомой строки}
  maxint: integer; { Промежуточная целочисленная переменная для поиска максимального значения}
  maxfloat: real; { Промежуточная вещественная переменная для поиска максимального значения}
begin
  Randomize;
  RandomInArr(x,n,m,-100,100);
  writeln('Исходный массив X: ');
  InfOutArr(x,n,m);
  indrow:= 1;
  maxint:= SumPosElemArr(x,1,m);
  for i:= 2 to n do
    if SumPosElemArr(x,i,m) > maxint then
      begin
        maxint:= SumPosElemArr(x,i,m);
        indrow:= i;
      end;
  writeln('Максимальная сумма положительных элементов находится в ',indrow,' строке массива X.');
  indrow:= 1;
  maxfloat:= ArethRowArr(x,1,m);
  for i:= 2 to n do
    if ArethRowArr(x,i,m) > maxfloat then
      begin
        maxfloat:= ArethRowArr(x,i,m);
        indrow:= i;
      end;
  writeln('Максимальное значение среднего арифметического находится в ',indrow,' строке массива X.');
 
  RandomInArr(y,n,m,-100,100);
  writeln('Исходный массив Y: ');
  InfOutArr(y,n,m);
  indrow:= 1;
  maxint:= SumPosElemArr(y,1,m);
  for i:= 2 to n do
    if SumPosElemArr(y,i,m) > maxint then
      begin
        maxint:= SumPosElemArr(y,i,m);
        indrow:= i;
      end;
  writeln('Максимальная сумма положительных элементов находится в ',indrow,' строке массива Y.');
  indrow:= 1;
  maxfloat:= ArethRowArr(y,1,m);
  for i:= 2 to n do
    if ArethRowArr(y,i,m) > maxfloat then
      begin
        maxfloat:= ArethRowArr(y,i,m);
        indrow:= i;
      end;
  writeln('Максимальное значение среднего арифметического находится в ',indrow,' строке массива Y.');
  Readln;
end.