Найти количество нечётных элементов двумерного массива и записать их в одномерный массив.

const N1 = 5;      N2 = 5;var a: array [0..N1, 0..N2] of integer;    b: array [0..N1*N2] of integer;    i, j, n: integer;begin     for i:=0 to N1 do {Заполнение массивы случайными числами}         for j := 0 to N2 do            a[i, j] := random(9999);              for i:=0 to N1 do {Основная часть, проверка и заполнение второго массива}         for j := 0 to N2 do             if (a[i, j] mod 2 = 0) then             begin                  b[n] := a[i, j];                  n := n + 1;             end;                  for i:=0 to n do  {Вывод полученных чисел}         writeln(b[i]);end.