системы счисления turbo pascal

Необходимо подробное решение задачи с комментариями в turbo pascal

Задача.

Разработать программу, выполняющую перевод действительного числа X заданного в системе счисления с основанием q в систему счисления с основанием p (2≤ q,p ≤16).

Указания:

1. Используйте правило замещения и правило деления-умножения

2. Организуйте комфортный диалог с пользователем в котором предусмотрите возможность коррекции неверно введенных символов.

3. Помните, что каждому значению основания системы счисления соответствует строго определенный набор допустимых символов.

4. При преобразовании дробной части не забывайте об обеспечении необходимой точности вычислений.