Рекурсивные подпрограммы. Составить программу перевода данного натурального числа в p-ичную систему счисления

const
zn:string[9]='012345678';
function Convert(a:longint;base:byte):string;
var s:string;
begin
s:='';
repeat
s:=zn[(a mod base)+1]+s;
a:=a div base;
until a=0;
Convert:=s;
end;
var dec:longint;
    osn:byte;
    s:string;
begin
 
write('Введите число в десятичной системе n=');
readln(dec);
repeat
write('Введите систему счисления от 2 до 9 ss=');
readln(osn);
until osn in [2..9];
write('Число ',dec,' в системе по основанию ',osn,'=');
write(convert(dec,osn));
 
end.

procedure dectobase(n:integer;base:byte;var res:string);
begin
if n>base-1 then dectobase((n div base),base,res) else res:='';
res:=res+inttostr(n mod base);
end;
var n:integer;
    os:byte;
    s:string;
begin
repeat
write('Введите целое положительное число n=');
readln(n);
until n>0;
repeat
write('Введите основание СС от 2 до 9 os=');
readln(os);
until os in [2..9];
dectobase(n,os,s);
write(s)
end.