Сортировать нечетные элементы произвольного массива по убыванию. для сортировки можно использовать любой метод. для работы с массивом использовать процедуры. , не получается pascal.

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,10,99);
  a.Println;
  var b:=Range(0,n-1,2).Select(i->a.ElementAt(i)).
      SortedDescending.ToArray;
  var i:=0;
  while i<=n-1 do begin a[i]:=b[i div 2]; i+=2 end;
  a.Println
end.

Тестовое решение:
n= 10
15 64 87 99 48 94 89 96 35 13
89 64 87 99 48 94 35 96 15 13