Перевод десятичного числа в двоичную систему (Pascal)

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

Перевести целое десятичное число в двоичную систему счисления.
На вход подается десятичное числа.
На выходе - представление этого числа в двоичной форме.

Исходный код на языке Pascal
program ToBinary;

procedure dec2bin(var s : string; num : integer);
begin
    if num > 0 then begin
        dec2bin(s, num div 2);
        if num mod 2 = 0 then
            s := s + '0'
        else
            s := s + '1';
    end;
end;

var
  a : integer;
  s : string;

begin
  read(a);
  dec2bin(s, a);
  writeln(s);
end.