Дано число Х. Найти значение целой и дробной частей этого числа- Pascal(Паскаль)

uses crt;
var x:real;
begin
clrscr;
write('x=');
readln(x);
writeln('Целая часть=',trunc(x));
writeln('Дробная часть=',frac(x):0:6);
readln
end.