Имеется таблица самых высоких гор мира. Найти и вывести первых 3 высоких гор.Паскаль, Пожалуйста посчитайтеееееее срочноооо

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)