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

[_JC_]

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

[_JC_]

Т.е. что бы сделать вторую задачу мне надо изменить
1)значение массивов(array 0..4)
2)case upcase(ch) of
'0'..'9': get_index := ord(ch) - ord('0');
'A'..'F': get_index := $A + ord(upcase(ch)) - ord('A');-что то изменить тут=)
3)везде где 0..7(0 to 7 do)ставить 0..4
4)напиши что ещё поменять а то я плохо знаю паскаль и что бы разобраться
в 1-ой задаче уйдёт не мало времени а что бы написать самому.......а время поджимает!