Перевод дробных чисел в различных с/с в Паскале

[somebody_now]

понимаю, но я несколько не об этом.
пользователь сам вводит число и сводя к примитиву
нужно понять сколько раз он нажал на цифровые кнопки после того как поставил точку..
число это не есть какоето случайное или выведенное программой .в этом существенное отличие
от примера скажем
найти колво разрядов a если a:=1/7

[pikvar]

А как эту программу переделать, что бы она просто переводила из пятеричной системы в десятичную, дробные числа?