Вывести на экран cначала четные элементы массива, затем нечетные

uses crt;
var a:array[1..100] of integer;
    i,j,n,k,x:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
 begin
  a[i]:=random(20);
  Write(a[i],'  ');
 end;
Writeln;
for i:=1 to n do
if a[i] mod 2=0 then
 begin
  k:=k+1;
  x:=a[i];
  for j:=i downto k+1 do
  a[i]:=a[j-1];
  a[k]:=x;
 end;
for i:=1 to n do
 Write(a[i],'  ');
Readln;
end.

var
m,ch,nech:array [1..100] of integer;
i,n:integer;
begin
write ('n=');
readln (n);
for i:=1 to n do
read (m[i]);
for i:=1 to n do
if (m[i] mod 2=0) then write (m[i],' ');
for i:=1 to n do
if (m[i] mod 2<>0) then write (m[i],' ');
readln;
end.

program chotnoe_ic_massiva;
 
var
  a: array of integer;
  n, i: integer;
 
begin
  read(n);
  setlength(a, n);
  for i := 0 to n - 1 do read(a[i]);
  write('Четные:');
  for i := 0 to n - 1 do 
    if not Odd(a[i])
      then write(a[i], ' ');
  writeln;
  write('Нечетные:');
  for i := 0 to n - 1 do 
    if Odd(a[i])
      then write(a[i], ' ');
end.