Рекурсия: перевод целого числа из десятичной системы счисления в восьмеричную - Pascal (89691)

Формулировка задачи:

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

Решение задачи: «Рекурсия: перевод целого числа из десятичной системы счисления в восьмеричную»

Листинг программы

procedure dec_to_oct(dec:word;var res:string);
var s:string;
begin
 if dec>7 then dec_to_oct((dec div 8),res) else res:='';
 str((dec mod 8),s) ;
 res:=res+s;
end;
var N:word;
    ss:byte;
    s:string;
begin
write('Vvedite chislo n=');
readln(n);
dec_to_oct(n,s);
writeln(s);
readln
end.

Объяснение кода листинга программы

Объявлены процедуры dec_to_oct и str, а также переменные dec, res, s, N и ss.
Ввод числа N с клавиатуры.
Вызов процедуры dec_to_oct с аргументами N и пустой строкой res. Результат работы процедуры сохраняется в переменной s.
Вывод результата на экран.
Чтение команды с клавиатуры (для выхода из программы).