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

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