Процедура перевода из 10 сс в 2 сс. Блок схема - Turbo Pascal

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

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

program ex1;
var x:integer;
procedure printbin(n:integer);
begin
     if n=0 then exit;
     printbin(n div 2);
     write(n mod 2);
end;
begin {осн. программа}
      writeln ('Введите число в 10сс');
      readln(x);
      printbin(x);
end.

Помогите пожалуйста с изображением блок схемы.

Решение задачи: «Процедура перевода из 10 сс в 2 сс. Блок схема»

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

procedure dectobin(n:integer;var res:string);
begin
if n>1 then dectobin((n div 2),res) else res:='';
res:=res+chr(n mod 2+48);
end;
var n:integer;
    s:string;
begin
repeat
write('Введите целое положительное число n=');
readln(n);
until n>0;
dectobin(n,s);
write(s)
end.

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

Введен адрес процедуры dectobin.
Введен тип данных и параметры процедуры:
- n:integer - целочисленный параметр, представляет собой число, которое нужно перевести в двоичный формат.
- res:string - строковый параметр, в который будет записан результат перевода числа в двоичный формат.
Выполняется проверка на число больше 1, если это так, то вызывается рекурсивный вызов процедуры dectobin с аргументами (n div 2) и res.
Если число не больше 1, то в переменную res записывается пустая строка.
В переменную res записывается символ, соответствующий двоичному значению (n mod 2), при этом к нему добавляется значение 48, чтобы получить нужный символ.
Введен тип данных и переменные для основной программы:
- n: integer - переменная для ввода числа.
- s: string - переменная для хранения результата перевода числа в двоичный формат.
Запускается цикл, который будет выполняться до тех пор, пока пользователь не введет число, равное нулю.
В каждой итерации цикла происходит вывод сообщения с просьбой ввести число и его считывание с помощью функции readln().
Значение числа сохраняется в переменной n.
Вызывается процедура dectobin с аргументами n и s.
Результат работы процедуры dectobin записывается в переменную s.
Результат выводится на экран с помощью функции write().