Sắp xếp mảng sao cho các số lẻ nằm trước day, các số chẵn nằm ở cuối dãy, các số 0 nằm ở giữa dãy

PROCEDURE sapxep(var a:mang);
Var d, I: integer;
 Tam:integer;
Begin
D:=0;
For i:=1 to n do
If (a[i] mod 2 <>0) and (a[i]<>0) then
Begin
D:=d+1;
Tam:=a[i];
A[i]:=a[d];
A[d]:=tam;
End;
For i:=d+1 to n do
If a[i]=0 then
Begin
D:=d+1;
Tam:=a[i];
A[i]:=a[d];
A[d]:=tam;
End;
End;

xong rôi nha mình cũng lục tài liệu y trang bạn ấy