ИП320. Работа с битами. Помогите новичку.

[capzap]

var
ves_real:real;
ves_kg:int;
ves_gr:int;
end_var

Ves_kg:=real_to_int(ves_real);
Ves_gr:=real_to_int((ves_real-int_to_real(Ves_kg))*1000);

реал_то_инт, округляет до ближайшего целого, в этом случае трунк нужно использовать для килограмм