Вывести двоичную(3-чную,.. 9-ную) запись целого числа опять же с помощью рекурсии- Pascal(Паскаль)

uses crt;
procedure dectobase(dec:word;base:byte;var res:string);{число, новая система, результат}
var s:string;
begin
 if dec>(base-1) then dectobase((dec div base),base,res) else res:='';
 str((dec mod base),s) ;
 res:=res+s;
end;
var N:word;
    ss:byte;
    s:string;
begin
clrscr;
write('Vvedite chislo n=');
readln(n);
write('Sistema schislenya ss=');
readln(ss);
dectobase(n,ss,s);
writeln(s);
readln
end.