Даны результаты трёх прыгунов в соревнование. найти лучший результат и вывести его на экран

Pascal ABC.Net 3.3.5

var
  x1, x2, x3: real;

begin
  write('Результат 1-го спортсмена: ');
  readln(x1);
  write('Результат 2-го спортсмена: ');
  readln(x2);
  write('Результат 3-го спортсмена: ');
  readln(x3);
  if (x1 > x2) and (x1 > x3)
    then writeln('Лучший результат у 1-го спортсмена. Результат - ', x1)
  else if (x2 > x1) and (x2 > x3)
    then writeln('Лучший результат у 2-го спортсмена. Результат - ', x2)
  else writeln('Лучший результат у 3-го спортсмена. Результат - ', x3);
end.