Дан целочисленный массив A(n) с элементами, сгенерированными случайными числами в диапазоне (-20,20). Требуется отсортировать по убыванию элементы массива с нечетными номерами методом обмена.- Pascal(Паскаль)

const
  n = 20;

var
  arr: array [1 .. n] of integer;
  i, j, t: integer;

begin
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    arr[i] := random(41) - 20;
    write(arr[i]:4);
  end;
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if odd(i) and odd(j) then
        if arr[i] < arr[j] then
        begin
          t := arr[i];
          arr[i] := arr[j];
          arr[j] := t;
        end;
  writeln;
  writeln('Результат');
  for i := 1 to n do
    write(arr[i]:4);

end.