Выясните наилучший итог в соревнованиях по плаванию для N спортсменов и

Как говорится, это для вас не С++  - здесь все очень живо и кратко ))))

// PascalABC.NET 3.3, сборка 1531 от 30.08.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var L:=new Listlt;(string,real)gt;;
  // это не решение задачки, это ввод данных
  Writeln('Введите в каждой строке фамилию, пробел, время');
  var i:=1;
  repeat
    var s:=ReadlnString(i+': ');
    if s[1]='*' then break;
    var w:=s.ToWords;
    L.Add(Rec(w[0],real.Parse(w[1])));
    i+=1;
  until false;
  // а сейчас само решение
  Writeln(L.MinBy(x-gt;x[1]))
end.

Пример
Введите в каждой строке фамилию, пробел, время
1:  Иванов 10.3
2:  Петров 9.9
3:  Уточкин 10.1
4:  *
(Петров,9.9)