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

program perevod; 

Uses crt;
var z:integer;
procedure ToBin(z:integer);
begin
if (z>1) then ToBin(z div 2);
write(z mod 2:1);
end;

begin
clrscr;
  write('Введи число:');
readln(z);
  writeln('Число в десятичной системе:',z:6);
  write('Число в двоичной системе: ');
   ToBin(z);
readkey;
end.

Не уверена, что поняла вопрос правильно, но всё-таки:

1. Разделить десятичное число на 2, получится частное и остаток.

2. Разделить частное на 2, получится частное и остаток.

3. Продолжать деление частных, пока последнее частное не будет меньше 2.

4. Последнее частное и остатки записать в обратном порядке.

Например, из 27 в десятичной = 11011 в двоичной.