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

функция frac() берет от вещественного числа дробную часть .

var z,x:real;
begin
writeln('Vvedite X:');
readln(x);
z:=frac(x);
if z=0 then
writeln('Целое')
else
writeln('Не Целое');
end.