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

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

Найти суммы четных положительных элементов каждой строки матри- цы, результат записать в одномерный массив! Помогите пожалуйста

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

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

var
  A: TMatrix;
  B: TVector;
  i, j: Integer;
  s: integer;
...
  for i:=1 to m do begin
    s:=0;
    for j:=1 to n do begin
      if not odd(a[i,j]) and (a[i,j]>0) then inc(s,a[i,j]);
    end;
    b[i]:=s;
  end;

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

В данном коде выполняется подсчет суммы четных положительных чисел каждой строки матрицы A и запись результатов в массив B.

Объявляются следующие переменные: — A: TMatrix — матрица; — B: TVector — вектор; — i, j: Integer — индексы; — s: integer — переменная для хранения суммы.
Задается цикл от 1 до m (количество строк в матрице A).
Внутри цикла устанавливается начальное значение переменной s равное 0.
Задается вложенный цикл от 1 до n (количество столбцов в матрице A).
Внутри вложенного цикла проверяется условие, что элемент a[i,j] является четным и положительным числом, и если это так, то к переменной s прибавляется значение элемента a[i,j].
По завершении вложенного цикла, значение переменной s записывается в элемент массива B с индексом i.
По завершении внешнего цикла, значения массива B выводятся на экран.