Pascalabcnet сначала вводим количество строчек n, где 1< =n < =10^6 затем вводим с клавиатуры фамилии, имена и , где от 0 до 100. нужно вывести фамилию и максимальный , если таких людей с максимальным несколько, то просто вывести количество таких людей. с прогой

Программа

begin
  var n := ReadlnInteger;
  var Data := ArrGen(n, x -> ReadlnString.ToWords);
  var MaxScore := Data.Max(x -> x[2].ToInteger);
  Data.Where(x -> x[2].ToInteger = MaxScore).Select(x ->
x.JoinIntoString).Print(NewLine)
end.

Ввод:
5
Георгий Сазонов 65
Матвей Панфилов 39
Василий Колобов 85
Иван Кириллов 72
Юрий Гришин 85

Вывод:
Василий Колобов 85
Юрий Гришин 85