Определите максимальное время прохождения 100 - метровой дистанции 12 спортсменов, если время каждого вводится с клавиатуры (информатика)

Если нужно написать программу на паскале, то вот:

program stometrov;

var i:integer; t, x:real;

begin

x:=0;

for i:=1 to 12 do

begin

writeln ('Введите время участника №', i) ;

readln (t) ;

if t>x then

x:=t;

end;

writeln ('Максимальное время прохождения 100-метровой дистанции: ', x) ;

end.