Найти лучший результат по бегу на 100 м трех участников паскаль пожалуйста!!!

Var r1,r2,r3,min:real;
begin
writeln(Введите результаты:);
readln(r1,r2,r3);
if r1lt;r2 then min:=r1 else min:=r2;
if r3lt;min then min:=r3;
writeln(Лучший результат = ,min);
end.

Пример:
Введите результаты:
12.1 10.8 11.7
Лучший результат = 10.8

Var
    r1, r2, r3: real;

begin
    write(Введите результаты: );
    readln(r1, r2, r3);
   
    if r1 gt; r2 then r1 := r2;
    if r1 gt; r3 then r1 := r3;
   
    writeln(Лучший результат = , r1);
end.