Определить, есть ли в данной матрице столбец, в котором все элементы четны и положительны - Turbo Pascal

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

Дан двумерный массив размером МxN заполненный случайным образом. Определите, есть ли в данном массиве столбец, в котором все элементы четны и положительны

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

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

var
  a: array  [1..100, 1..100] of integer;
  i, j, n, m, k: integer;
 
begin
  randomize;
  write('Введите количество строк     n: ');readln(n);
  write('Введите количество столбцов  m: ');readln(m);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(n) - m div 2;
      write(a[i, j]:3);
    end;
    writeln;
  end;
  k := 0;
  for j := 1 to m do
  begin
    for i := 1 to n do
    begin
      if (a[i, j] mod 2 = 0) and (a[i, j] > 0) then 
        k := k + 1;
    end;
    if k = n then 
      writeln('Столбец из четных и положительных элементов №: ', j);
    k := 0;
  end;
  readln;
end.

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

Создается переменная a, которая представляет собой матрицу размером n x m для целых чисел.
В цикле for с индексами от 1 до n и от 1 до m происходит заполнение матрицы случайными числами.
После заполнения матрицы происходит проверка каждого столбца на наличие всех четных и положительных элементов.
Если в каком-то столбце все элементы удовлетворяют условиям, то выводится номер этого столбца.
Программа завершается после чтения пользовательского ввода.