Сортировка по возрастания и по убыванию 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