Упорядочить массив a, сформированный с датчика случайных чисел на интервале [-34, 33] по убыванию.

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-34,33); a.Println;
  Sort(a,(x,y)->x>=y); a.Println
end.

Пример
n= 15
-23 29 25 -10 -13 28 -13 -14 -2 -26 -20 26 10 -18 10
29 28 26 25 10 10 -2 -10 -13 -13 -14 -18 -20 -23 -26