for i:=1 to 12 do - цикл, тело которого повторится 12 раз writeln('Введите время участника №', i); - просит ввести время участника №[номер повторения цикла] readln(t); - считывает число, которое вводит пользователь if t>x then - если число, которое ввели, больше значения переменной x, то (x:=t;) это число кладем в переменную x.После прогона всего цикла нам остается вывести значение x, делаем мы это командой writeln('Максимальное время прохождения 100-метровой дистанции: ',x);