Дан массив А (n) произвольных чисел. Сформировать из его элементов и вывести массив В – четных чисел и массив С – нечетных чисел. Значение n задает пользователь — Pascal(Паскаль)

uses crt;
var a,b,c:array[1..100] of integer;
    i,p,k,n:integer;
 begin
 ClrScr;
 Randomize;
  repeat
   Readln(n);
  until n>1;
  for i:=1 to n do
   begin
    a[i]:=random(12)-6;
    Write(a[i]:3);
   end;
   Writeln;
   k:=0;
  for i:=1 to n do
   if a[i] mod 2=0 then
    begin
     k:=k+1;
     b[k]:=a[i];
     Write(b[k]:3);
    end;
   Writeln;
   p:=0;
   for i:=1 to n do
   if a[i] mod 2<>0 then
    begin
     p:=p+1;
     c[p]:=a[i];
     Write(c[p]:3);
    end;
 Readln;
end.