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

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

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

Народ помогите пожалуйста,у меня идей никаких. Пытался через if не смог. Вот часть кода, который я беру за основу!

program one;
const
m = 5;
n = 4;
var
a: array[1..m,1..n] of byte;
s: array[1..n] of byte;
i,j, sum: byte;
begin
randomize;
for i := 1 to m do begin
for j := 1 to n do begin
a[i,j] := random(10);
write (a[i,j]:3)
end;
writeln
end; 
writeln (' ------------');
for j := 1 to n do begin
for i := 1 to m do begin
 
end;
 
end;
 
end.

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

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

const
  m = 5;
  n = 4;
 
var
  a : array[1..m, 1..n] of byte;
 
begin
  Randomize;
  for var i := 1 to m do 
    begin
      for var j := 1 to n do 
        begin
          a[i, j] := random(10);
          write(a[i, j]:3)
        end;
      writeln
    end; 
  WriteLn(' ------------');
  
  for var i := 1 to m do 
    begin
      for var j := 1 to n do 
        begin
          if odd(j) then
            a[i, j] := 0;
          write(a[i, j]:3)
        end;
      writeln
    end; 
  WriteLn(' ------------');
  
  for var i := 1 to m do
    if not odd(i) then
      begin
        var S := 0;
        for var j := 1 to n do
          S += a[i, j];
        WriteLn('сумма ', i, ' строки = ', S);
      end;
end.

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

В данном коде выполняются следующие действия:

Задаются размеры массива a (m на m+1) и инициализируются его элементы случайными числами.
Выводится содержимое массива a в консоль.
Производится замена элементов массива a в нечётных столбцах на 0.
Выводится обновлённое содержимое массива a в консоль.
Для каждой чётной строки массива a вычисляется сумма её элементов и выводится в консоль.