Рекурсия. Процедура перевода чисел из десятичной системы счисления в другие | Язык Паскаль

Рекурсия. Процедура перевода чисел из десятичной системы счисления в другие

Написать рекурсивную процедуру, переводящую числа из десятичной системы счисления в другие с основанием до 10-ти.

Это пример рекурсивной процедуры (которая вызывает себя из своего тела).

Программа на языке Паскаль: 

var
    k: integer;
    s: byte;
 
procedure scale (a: integer; b: byte);
    begin
        if b > 10 then
            write ('Основание должно быть меньше 10!')
        else begin
            if a > 1 then
                scale (a div b, b);
            write (a mod b)
        end;
    end;
 
begin
 
    write ('Введите число: ');
    readln (k);
 
    write ('Перевод в систему счисления: ');
    readln (s);
 
    scale (k, s);
 
end.