перевод из 10-ичной с/с в восмеричную с помощью рекурсивной процедуры

Пользуйся поиском, я выкладывал уже эту процедуру.

Напиши плз ссылку!!!!

function FromDec(n, radix:longint):string;
var
s: String;
const
digit: string[16]='0123456789ABCDEF';
begin
s:='';
repeat
s:=digit[(n mod radix)+1]+s;
n:=n div radix;
until n=0;
FromDec:=s;
end;


помогите пожалуйста оформить с помощью рекурсивной процедуры

Вот ссылка:
Рекурсия

СПАСИБО БолЬшоЕ