Определение строки с наибольшим количеством нечетных элементов - Pascal ABC

Формулировка задачи:

не получается программа :Дан двумерный массив целых чисел. Написать программу, которая определяет строку с наибольшим количеством нечетных элементов.

Решение задачи: «Определение строки с наибольшим количеством нечетных элементов»

Листинг программы

const nmax=20;
var a:array[1..nmax,1..nmax]of integer;
    m,n,i,j,k,mx,imx:integer;
begin
randomize;
repeat
write('Количество строк от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
repeat
write('Количество столбцов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
mx:=0;
for i:=1 to m do
 begin
  k:=0;
  for j:=1 to n do
  if odd(a[i,j]) then inc(k);
  if k>mx then
   begin
    mx:=k;
    imx:=i;
   end;
 end;
write('Максимальное количество нечетных=',mx,' в стороке ',imx)
end.

Объяснение кода листинга программы

Создается константа nmax, которая определяет максимальное количество строк и столбцов в матрице.
Создается переменная a типа array[1..nmax,1..nmax]of integer. Эта переменная представляет собой матрицу размером nmax x nmax, в которой будут храниться числа.
Создаются переменные m, n, i, j, k, mx, imx. Эти переменные используются для контроля над циклом и обработки чисел в матрице.
В цикле повторяется запрос количества строк и столбцов, чтобы убедиться, что введенные значения находятся в пределах nmax.
В цикле повторяется заполнение матрицы случайными числами от 1 до 50.
После заполнения матрицы выводится количество нечетных чисел в ней.
Затем выполняется поиск максимального количества нечетных чисел в матрице. Для этого используется цикл, который увеличивает счетчик k каждый раз, когда встречается нечетное число. Когда k становится больше mx, обновляется значение mx и индекс imx.
Наконец, выводится сообщение с максимальным количеством нечетных чисел и индексом строки, в которой они находятся.