bài toán Sắp xếp chắn lẽ theo chiều tăng dần

Đề : Viết chương trình nhập chương trình. Sắp xếp như in chẵn trước lẽ sau và sắp xếp
theo chiều tăng dần
input

output

n=8
1 5 4 9 2 32 1241 98

2 4 32 98 1 5 9 1241

Mã nguồn:
program tuan_suat;
uses crt;
const max =100;
type mang =array[1..max] of integer;
var a: mang;
n:integer;
procedure nhap(var a:mang ; n:integer );
var i:integer;
begin
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
end;
function kiemtra(var x,y: integer):integer;
begin
kiemtra := 0;
if (x mod 2 = 1) and (y mod 2 = 0) then kiemtra:= 1;
if ((x+y) mod 2 = 0) and (x > y) then kiemtra:= 1;

end;
procedure sapxep(var a:mang ; n:integer );
var
i,j:integer;
temp:integer;
begin
for i:= 1 to n-1 do
begin
for j:= i+1 to n do
if (kiemtra(a[i],a[j]) = 1) then
begin
temp := a[i];
a[i] := a[j];
a[j] := temp;
end;
end;
for i:= 1 to n do write(a[i]:4);


end;
begin
readln(n);
nhap(a,n);
sapxep(a,n);
readln;
end.