Перевод из десятичной системы в двоичную

program Perevod_10_2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

s, p: string;

b, temp: integer;

code, o: integer;

begin

write ('Vvedite chislo: ');

readln (temp);

while temp >= 2 do

  begin

  b:=temp mod 2;

  temp:= Round(Int(temp/2));

  str(b,s);

  p:=s+p;

  end;

str(temp,s);

p:=s+p;

val(p,o,code);

writeln;

writeln('Rezultat: ',o);

readln;

end.