Срочно решите пожалуйста паскаль


Определить какой по счету спортсмен пришел к финишу с временем выше среднего значения известно что участвовало 10 спортсменов на дистанции 100 м время каждого спортсмена вводится с клавиатуры. Паскаль

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