Системы счисления, Перевести из одной в другую! Опции

[_JC_]

Помогите решить задачу:
Информация: Натуральное число, записанное в шестнадцатиричной системе счисления в формате string.
Задание: Вывести значение этого числа в восьмиричной системе счисления.
Примечание: значение числа может не вмещаться в формат longint, но вмещается в string.

[volvo]

Когда-то нашел вот такую программку (переводит числа из 10 системы счисления в другую):

uses crt;

const
    value     = 0.1875; { число, которое будем переводить }
    base      = 2;         { в какую систему переводим }
    precision = 5;        { точность }

var
    ivalue, nbase, digit, k : integer;
    fvalue, eps             : real;
    sym                     : char;

begin
    ivalue := trunc(value);
    fvalue := value - ivalue;

    nbase := 1;
    while (ivalue >= nbase) do nbase := nbase * base;
    while (nbase > 1) do begin
        nbase := nbase div base;
        digit := ivalue div nbase;
        ivalue := ivalue - digit * nbase;
        if (digit < 10) then sym := chr(48+digit)
                        else sym := chr(55+digit);
        write(sym);
    end;

    write('.');
    eps := 1;
    for k := 1 to precision do eps := eps * base;

    for k := 1 to precision do begin
        digit := trunc(fvalue * base);
        fvalue := fvalue * base - digit;
        if (digit < 10) then sym := chr(48+digit)
                        else sym := chr(55+digit);
        write(sym);
        if (fvalue < 1/eps) then break;
    end;

    writeln;
    readkey;
end.