Перевод из натурального десятичного числа в двоичное представление(string)

[Berserk0]

вот наработка но что то нашалил на сонную голову вывод нужен нормальный

uses crt;
var s,x:string;
a,i,b:integer;
begin
clrscr;
write('vvedite a=');
readln(a);
i:=0;
 begin
  i:=i+1;
  b:=a mod 2;
  str(b,x);
  s:=x+s;
  a:=a div 2;
 end;
 writeln(b);
readln;
end.

[Berserk0]

Аааааааааааааааппппппппп

[Serge_Bliznykov]

uses crt;
var s,x:string;
 a,b:integer;
begin
 clrscr;
 write('vvedite a=');
 readln(a);
 if a<=0 then s:='0'
 else begin
   s:='';
   while a>0 do begin
     b:=a mod 2;
     str(b,x);
     s:=x+s;
     a:=a div 2;
   end;
 end;
 writeln(s);
readln;
end.

[divwond]

var
sDv: string;
iMod, iDch, iDchr :integer;
begin
Write('Decatichnoe chislo: ');
Readln(iDch);
iDchr := iDch;
while iDch >= 2 do
begin
iMod := iDch mod 2;
iDch := iDch div 2;
sDv := IntToStr(iMod) + sDv;
end;
sDv := IntToStr(iDch) + sDv;
Writeln(iDchr, '(10) = ', sDv, '(2)');
Readln;
end

не мое, но работает