Определить и напечатать номер строки введенной матрицы, в котором больше парных элементов - PascalABC.NET

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

С клавиатуры ввести прямоугольную матрицу целых чисел ( максимальная размерность матрицы - 20х20 элементов). Определить и напечатать номер строки введенной матрицы , в котором больше парных элементов матрицу я сделал а с парными элементами у меня проблема

const
  N = 20; M = 20;
 
var
  a: array[1..N, 1..M] of integer;
  i, j: byte;

begin
  randomize;
  for i := 1 to N do 
  begin
    for j := 1 to M do 
    begin
      a[i, j] := random(9);
      write(a[i, j], ' ');
    end;
    writeln;
  end;

end.

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

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

const
  n = 20;
 
var
  x: Array[1..n, 1..n] of Integer;
  i, j, max, t, st: Integer;
 
begin
  randomize;
  Writeln('Матрица:');
  t := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      x[i, j] := Random(n);
      if not odd(x[i, j] ) Then 
        Inc(t);
      Write(x[i, j]:4);
    end;
    if t > max Then
    begin
      max := t;
      st := i;
    end;
    t := 0;
    Writeln
  end;
  Writeln('Строка с наиб. кол-вом четных: ', st);
end.

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

Объявлены переменные: n - размерность матрицы (20); x - матрица целых чисел (Array[1..n, 1..n] of Integer); i, j, max, t, st - целочисленные переменные для управления циклом и поиска максимального значения.
Задана и выведена матрица случайными значениями от 0 до n-1.
Переменная t инициализируется нулем. Она используется для подсчета парных элементов.
Два вложенных цикла вычисляют сумму элементов матрицы.
Если элемент матрицы нечетный, то он не учитывается в подсчете (если нечетный).
После вывода каждого элемента матрицы, значение переменной t сбрасывается в ноль.
Если текущее значение переменной t больше максимального значения, то обновляются значения переменных max и st.
После завершения вывода матрицы, выводится строка с наибольшим количеством четных элементов.