Pascal. как написать фрагмент кода, который будет определять, целое число, или дробное?

Var 
p,k:real;
begin 
writeln('Введите число: '); 
readln(p); 
k:=frac(p);
if k=0 then write('Целое число')
else write('Дробное число');
readln; 
end.