Сформировать одномерный массив из четных значений элементов матрицы - Pascal

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

1. Дано матрицу A (N, M). Сформировать одномерный массив из парных значений элементов матрицы. Заранее спасибо!

Решение задачи: «Сформировать одномерный массив из четных значений элементов матрицы»

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

  for i:=1 to m do for j:=1 to n do
    if not Odd(a[i,j]) then begin
      Inc(k); b[k]:=a[i,j];
    end;
  Write('B ='); for j:=1 to k do Write(' ',b[j]); WriteLn;

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

Создается двойной цикл: i изменяется от 1 до m, и j изменяется от 1 до n.
Проверяется, является ли значение элемента матрицы a с индексами i и j четным: not Odd(a[i,j]).
Если значение четное, то увеличивается счетчик k, и значение элемента a[i,j] добавляется к одномерному массиву b под индексом k: b[k]:=a[i,j].
Далее выводится массив b с помощью цикла Write и WriteLn.