Впрограмме паскаль adc..решить , даны два различных вещественных числа, определить: какое из них больше)

Var x,y:real;
begin
  Readln(x,y);
  If x>y then
     Writeln ('Первое число больше')
  elese
  Writeln ('Второе число больше');
end.