Дана матрица А, имеющая N строк и N столбцов. Сформировать два одномерных массива. В один перешлите все четные, а в другой – нечетные элементы матрицы. Выведите на экран все массивы — Pascal(Паскаль)

Program xxx;
uses
  crt;
const
  n=6;
  m=36;
var
  a: array [1..n,1..n] of integer;
  b,c: array [1..m] of integer;
  s,i,j,k: integer;
begin
  clrscr;
  k:=0;
  s:=0;
  randomize;
  for i:= 1 to n do
    for j:= 1 to n do
      a[i,j]:=random(10);
  writeln('Ishodniy massiw');
  for i:= 1 to n do
  begin
    for j:= 1 to n do
      write(a[i,j],' ');
      writeln;
  end;
  for i:= 1 to n do
  begin
    for j:= 1 to n do
      if (a[i,j] mod 2)=1 then
      begin
         inc(k);
         b[k]:=a[i,j];
      end
      else
      begin
        inc(s);
        c[s]:=a[i,j];
      end;
  end;
  writeln('Nechetniy massiw');
  for i:= 1 to k do
    write(b[i],' ');
  writeln;
  writeln('Chetniy massiw');
  for j:= 1 to s do
    write(c[j],' ');
  readkey;
end.