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

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

Исходный код на языке Pascal
var
  a, i: integer;
  s: string;
  b: char;

begin
  read(a);
  while a > 0 do 
  begin
    if a mod 2 = 0 then
    begin
      s := s + '0';
      a := a div 2;
    end;
    if a mod 2 = 1 then 
    begin
      s := s + '1';
      a := a div 2;
    end;
  end;
  a := length(s) div 2;
  for i := 1 to a do 
  begin
    b := s[i];
    s[i] := s[length(s) - i + 1];
    s[length(s) - i + 1] := b;
  end;
  writeln(s);
end.