Отсортировать массив: все четные элементы по возрастанию а нечетные по убыванию

for i := 1 to Size - 1 do
  if A[i] > A[i + 1] then
    Swap(A[i], A[i + 1]);

for i := 0 to Size div 2 do
  if A[i*2 + 1] > A[i*2 + 3] then
    Swap(A[i*2 + 1], A[i*2 + 3]);

for i := 1 to Size div 2 do
  if A[i*2] > A[i*2 + 2] then
    Swap(A[i*2], A[i*2 + 2]);

const
  Size = 20;
begin
  Randomize;
  var A : array[1..Size] of Integer;
  for var i := 1 to Size do A[i] := Random(0, 9);
  WriteLn(A);
  
  // Чётные и нечётные в соответствующие массивы
  // (нулевой индекс = количество элементов в массиве)
  var evenA : array[0..Size] of Integer;
  var oddA  : array[0..Size] of Integer;
  for var i := 1 to Size do
    if odd(A[i]) then
      begin
        oddA[0] += 1; oddA[oddA[0]] := A[i];
      end
    else
      begin
        evenA[0] += 1; evenA[evenA[0]] := A[i];
      end;
  
  var Changed : Boolean;
  
  // Чётные по неубыванию
  repeat
    Changed := False;
    for var i := 2 to evenA[0] do
      if evenA[i - 1] > evenA[i] then
        begin
          Swap(evenA[i - 1], evenA[i]);
          Changed := True;
        end;
  until Not Changed;
  
  // Нечётные по невозрастанию
  repeat
    Changed := False;
    for var i := 2 to oddA[0] do
      if oddA[i - 1] < oddA[i] then
        begin
          Swap(oddA[i - 1], oddA[i]);
          Changed := True;
        end;
  until Not Changed;
  
  // Сольём отсортированные данные в исходный массив
  for var i := Size downto 1 do
    if odd(A[i]) then
      begin
        A[i] := oddA[oddA[0]];
        oddA[0] -= 1;
      end
    else
      begin
        A[i] := evenA[evenA[0]];
        evenA[0] -= 1;
      end;
      
  WriteLn(A);
end.

for i:=1 to n-1 do
for j:=i+1 to n do
if (odd(a[i])and odd(a[j])and (a[i]<a[j]) )
or(not odd(a[i])and not odd(a[j])and (a[i]>a[j]))then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;