Pascal написать программу, переводящую десятичное число в двоичную систему

Var
   A:longint;
   B:string;
Begin
Write('A = ');
ReadLn(A);
A:=Abs(A);
While A > 0 do
   Begin
   if A mod 2 = 0 then B:='0'+B
   else B:='1'+B;
   A:=A div 2
   End;
WriteLn(B)
End.