[fpc-pascal] convert floating point to bcd and vice versa

[ik]

Hello,

I need to convert floating point (Single and Double) to an array of
bytes (BCD) and vice versa.
Are there any existed implementation for it ?

Thanks,
Ido