вести число и определить какое он дробное или целое в pascal

проверь остаток от деления на 1

Берешь целую часть числа, если она равна исходному числу, то число целое.
if trunc(f)=f then writeln('Целое');