Дан массив A(N). в массив B записать все четные, в C все не четные

Const m=20;                            
type  vector=array[1..m] of integer;    
Var n:integer;                           
    a,b,c:vector;                                                        
procedure RandomArray(var a:vector; var n:integer);
var i:integer;
begin  write('Введите количество элементов в массиве>');
       readln(n);
       randomize;              
       for i:=1 to n do
           a[i]:=random(21)-10    
end;
 
procedure PrintArray(a:vector; n:integer);
var i:integer;
begin  write('Массив>');
       for i:=1 to n do write(a[i]:4);
       writeln;
end;
procedure ArrayBC(var c,b:vector; a:vector; n:integer);
var i,j,k:integer;
begin
for i:=1 to n do
 begin
  if a[i] mod 2=0  
   then b[i]:=a[i]
    else c[i]:=a[i];
 end;
end;
begin
RandomArray(a,n);
PrintArray(a,n);
ArrayBC(c,b,a,n);
PrintArray(b,n);
PrintArray(c,n);
 
end.