Nhập vào một mảng,sắp xếp chữ số chẵn theo thứ tự giảm dần,các chữ số lẻ theo thứ tự tăng dần

uses crt;
var n,i,j,t:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write('Nhap n=');readln(n); 
   for i:=1 to n Do 
      begin
         write('Nhap phan tu thu ',i,': ');readln(A[i]);
      end;
   for i:=1 to n Do
      for j:=i to n Do
         if ((a[i]>a[j])and(a[i] mod 2=0)and(a[j] mod 2=0))
          or((a[i]<a[j])and(a[i] mod 2=1)and(a[j] mod 2=1)) then
          begin
             t:=a[i]; 
             a[i]:=a[j]; 
             a[j]:=t;
          end;
   write('Day sau khi sap xep: ');
   for i:=1 to n do write(a[i],' ');
readln
end.