Вычислить количество ненулевых элементов в чётных столбцах и их произведение - PascalABC.NET

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

Видел много подобных тем на этом форуме, но отсутствие пока что понимания как такового пока не позволяет сопоставить случаи. Помогите решить проблему, пожалуйста. Суть задания в том, что необходимо вычислить кол-во ненулевых элементов в чётных столбцах и их произведение.

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

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

Program Lab6;
const
 m = 3;
 n = 7;
Var
 A : Array [1..m, 1..n] of real;
 Mult : Real;
 Count : Integer;
 i,j : Integer;
Begin
 WriteLn ('Поочерёдно введите элементы массива A');
  for i:=1 to m do
  for j:=1 to n do
   begin
    Write ('A[',i,',',j,']= ');
    ReadLn (A[i,j]);
   end;
 Mult := 1;
 Count := 0;
  for i:=1 to n do
  for j:=1 to m do
    if (not Odd(j)) and (A[i,j]<>0) then
      begin
        Count:= Count+1;
        Mult:= Mult*(A[i,j]);
     end;
 WriteLn ('Количество  ненулевых элементов в чётных столбцах  = ',Count);
 WriteLn ('Произведение ненулевых элементов в чётных столбцах  = ',Mult);
 ReadLn;
End.

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

Список действий в коде:

Ввод данных.
- Объявляются переменные и массив.
- Задаются значения для констант m и n.
- Выводится сообщение с просьбой ввести элементы массива A.
- Происходит ввод элементов массива A с помощью двух вложенных циклов.
Вычисления.
- Инициализируются переменные Mult и Count.
- Два вложенных цикла вычисляют произведение ненулевых элементов в чётных столбцах и количество таких элементов.
- Условие (not Odd(j)) and (A[i,j]<>0) проверяет, что элемент находится в чётном столбце и не равен нулю.
Вывод результатов.
- Выводится количество ненулевых элементов в чётных столбцах.
- Выводится произведение ненулевых элементов в чётных столбцах.
- Запрос на ввод для завершения работы программы.