Из исходного массива скопировать отрицательные, чётные и нечётные элементы в три новых массива

uses crt;
var a:array[1..10,1..10] of integer;
    b,c,d:array[1..100] of integer;
    n,nb,nc,nd,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
nb:=0;
nc:=0;
nd:=0;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-20+random(41);
    write(a[i,j]:4);
    if a[i,j]<0 then
     begin
      inc(nb);
      b[nb]:=a[i,j];
     end;
    if a[i,j]mod 2=0 then
     begin
      inc(nc);
      c[nc]:=a[i,j];
     end;
   if odd(a[i,j]) then
     begin
      inc(nd);
      d[nd]:=a[i,j];
     end;
   end;
  writeln;
 end;
if nb=0 then writeln('В матрице нет отрицательных чисел')
else
 begin
  writeln('Массив отрицательных чисел');
  for i:=1 to nb do
  write(b[i]:4);
  writeln;
 end;
if nc=0 then writeln('В матрице нет четных чисел')
else
 begin
  writeln('Массив четных чисел');
  for i:=1 to nc do
  write(c[i]:4);
  writeln;
 end;
if nd=0 then writeln('В матрице нет нечетных чисел')
else
 begin
  writeln('Массив нечетных чисел');
  for i:=1 to nd do
  write(d[i]:4);
  writeln;
 end;
readln
end.