Перевод числа в двоичную систему счисления - Free Pascal

Ув. пользователи, никак не могу написать программу. Сижу пару дней над ней. Задание: Вывести представление данного натурального числа.

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

procedure Binary(n:integer);
begin
if n>1 then  Binary(n div 2)else write('');
write(n mod 2);
end;

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

В данном коде представлена процедура Binary, которая выполняет перевод числа в двоичную систему счисления.

Входной параметр: n - целое число, которое необходимо перевести в двоичную систему счисления.
Выходные данные: нет
Операции:
- Проверка условия n>1. Если это условие истинно, то выполняется рекурсивный вызов процедуры Binary с аргументом n div 2, где n делится на 2. Это необходимо для разбиения числа на половины и обработки каждой половины отдельно.
- Если условие n>1 ложно, то выполняется операция записи в stdout пустой строки. Это необходимо для завершения рекурсии и корректного формирования двоичного числа.
- Выполняется операция записи в stdout числа n mod 2. Это необходимо для формирования двоичного числа, начиная с последнего бита числа n. Таким образом, данный код выполняет перевод числа в двоичную систему счисления, используя рекурсивный подход.