Перемещение массива в файле, Перемещение массива в файле Опции

[Gift]

Как переместить четные числа в начало, а нечетные в конец не изменяя порядка
следования чисел с одинаковой четностью.
есть
12 7 9 6 -5 -6
4 6 -7 23 -24 9

надо
12 6 -6 7 9 -5
4 6 -24 -7 23 9

Код

uses crt;
const n=9;
type mas=array[1..6] of integer;
var
f:file of mas;
i,x,min,max,num_of_max:integer;
a:mas;
begin
clrscr;
randomize;
assign(f,'000.000');
rewrite(f);
for i:=1 to n do
begin
for x:=1 to n do
begin
 a[x]:=random(99);
 write(a[x]:3);
end;
writeln;
write(f,a);
writeln;
end;
close(f);

Код - в теги !!!