Берешь переменные и массив с типами данных real, создаешь цикл в котором каждый раз вводится значение спортсмена, и если оно лучше предыдущего, то этой переменной присваиваешь это значение, цикл должен выполняться 10 раз, т.е for i:=1 to 10 do, в конце после цикла вывод переменной которой присваивал значение!!!!