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

Pascal ABC.Net 3.3.5var  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.