Conversion de nombre décimal vers un nombre binaire

program conversion_10_2;
uses wincrt;
var
ch1:string ;
n:integer;
procedure lecture(var n:integer);
begin
writeln('donner un entier');
readln(n);
end;
function conv_10_2(n:integer):string;
var
r:integer;
ch:string;
begin
ch1:='';
repeat
r:=n mod 2;
n:=n div 2;
str(r,ch);
insert(ch,ch1,1);
until(n=0);
conv_10_2:=ch1;
end;
procedure affiche(var ch1:string);
begin
writeln('la conversion d''un nombre decimal vers binaire est: ',ch1);
end;
begin
lecture(n);
conv_10_2(n);
affiche(ch1);
end.