Написать программу в ПАСКАЛЕ, которая в массиве из 30 элементов выводит 2 максимальных

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(30,-50,50); a.Println;  a.OrderByDescending(t->t).Take(2).Printlnend.Пример14 -16 16 45 -42 27 -47 9 -31 -3 -49 7 15 44 -46 -30 7 34 30 25 -20 45 47 -8 -25 26 -16 42 -5 -1747 45