перевести 150 из 10-тичной системы счисления в 2-ую

вот
1001 0110

uses crt;
var n:integer;s:String;
begin
clrscr;
readln(n);
while n>0 do begin
insert(chr(48+n mod 2),s,1);
n:=n div 2;
end;
writeln(s);
readkey;
end.