Сортировка по возрастания и по убыванию 15 чисел на паскаль

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
  var a:=ArrRandom(15).println;
  a.Sorted.println.SortedDescending.println; 
end.

Тестовое решение:
17 75 17 71 20 86 10 45 10 78 99 11 16 33 20
10 10 11 16 17 17 20 20 33 45 71 75 78 86 99
99 86 78 75 71 45 33 20 20 17 17 16 11 10 10