[Romanzes]

подскажите пожалуста, если trunc округляет, тогда как можно отбросить дроробную часть?

Наверно, так:
x:=x-Frac(x);