Virgülden sonrasını atmak istiyorsan Trunc fonskiyonu var ancak bilgilerim eski olduğu için verdiğin örnekte uygulayamadım.
begin
Writeln (Trunc(123.456)); { Çıktı 123 }
Writeln (Trunc(-123.456)); { Çıktı -123 }
Writeln (Trunc(12.3456)); { Çıktı 12 }
Writeln (Trunc(-12.3456)); { Çıktı -12 }
readln;
end.