Написать программу, в одномерном массиве чётные числа переместились в начало массива, а не чётные в конец- Pascal(Паскаль)

const
  n = 9;

var
  a, b: array [1 .. n] of integer;
  i, j, kol: integer;

begin
  randomize;
  kol := 0;
  for i := 1 to n do
  begin
    a[i] := Random(10);
    Write(a[i]:3);
    if a[i] mod 2 = 0 then
    begin
      inc(kol);
      b[kol] := a[i];
    end;
  end;
  for i := 1 to n do
    if a[i] mod 2 <> 0 then
    begin
      inc(kol);
      b[kol] := a[i];
    end;
  a := b;
  WriteLn;
  for i := 1 to n do
    Write(a[i]:3);
  ReadLn

end.