Знамениты фамилии и результаты 15 спортсменов - бегунов, найти и вывести

begin

 var L := new Listlt;(string, real)gt;;

 for var i := 1 to 15 do

   L.Add((ReadlnString('Фамилия:'),

          ReadlnReal('итог:')));

 L := L.OrderByDescending(x -gt; x[1]).ToList;

 Println('Призеры:');

 L.Take(3).ForEach(x -gt; begin Println(x[0], x[1]) end);

 Println('Худший итог: ', L[14][0], L[14][1]);

 Println('Средний резульат:', L.Select(x -gt; x[1]).Average)

end.