Отсортировать элементы массива, с чётными индексами - по возрастанию, с нечётными - по убыванию - Turbo Pascal

uses crt;
const n=20;
var a:array[1..n] of integer;
    i,j,x:integer;
begin
clrscr;
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=10+random(90);
  write(a[i]:3);
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if (odd(i)and odd(j) and(a[i]<a[j]))
or(not odd(i))and not odd(j)and(a[i]>a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Сортировка с четными индексами по возрастанию, с не четными по убыванию');
for i:=1 to n do
write(a[i]:3);
readln
end.