Как в паскале определить, целое число или нет?

Program n1;
var x,y:real;
begin  
readln(x);  
y:=round(x);  
if y=x then writeln('число не дробное')         
else writeln('число дробное');  
end.