Вывести дробную часть заданного положительного числа а(паскаль)

Program al;
var a:real;
begin
writeln('a=');
readln(a)
;if a>0 then writeln(frac(a) )
else writeln( 'a otritatelinoe');
readln;
end.