// PascalABC.NET 3.3, сборка 1579 от 18.11.2017// Внимание! Если программа не работает, обновите версию!type Mountain=(string,integer); procedure Print3Highs(t:array of Mountain);begin t.OrderByDescending(x->x[1]).Take(3).Println(NewLine)end;begin var a:array of Mountain:=Arr( Rec('Эльбрус',5642), Rec('Винсон',4892), Rec('Килиманджаро',5895), Rec('Эверест',8848), Rec('Аконкагуа',6959), Rec('Мак-Кинли',6194)); Print3Highs(a)end.Результат(Эверест,8848)(Аконкагуа,6959)(Мак-Кинли,6194)