Паскаль (Матрица, массивы)

[3axBaT]

Помогите решить задачу:

Дана матрица размерностью 3х5, парные элементы матрицы нужно записать в массив №1, а не парные в массив №2.

за ранее благодарен.

[Voxa7]

for i:=1 to 3 do
  for j:=1 to 5 do
    if(a[i,j] mod 2 = 0) then 
      begin
        inc(count1);
        chet[count1] := a[i,j];
      end
    else
      begin
        inc(count2);
        nechet[count2] := a[i,j];
      end;