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

Program Nolimit;
var M:array [1..20] of integer;
    n, Ch, Ost : integer;
 
Begin
   WriteLn('Enter a number: ');
   ReadLn(n);
   
   while n >= 2 do
      begin
      Ch := n div 2;
      Ost := n mod 2;
      M[] := Ost;
      end;
   WriteLn('Result is: ', M[]);
   
end.

var
 n,i: integer;
 s:string;
begin
 repeat
   readln(n);
 until(n > 0);
 while n > 0 do begin
   if n mod 2 = 0 then
     s:= s + '0'
   else begin
     s:= s + '1';
     n:= n - 1;
   end;
   n:= n div 2;
 end;
 for i:= length(s) downto 1 do
   write(s[i]);
end.

Program qq;
var k,n,c: integer;
begin
readln(n);
k:=1;
while n<>0 do
begin
c:=n mod 2;
n:=n div 2;
k:=k*10+0;
end;
writeln(k);
end.

program p;
var x:integer;
     b:string; 
function IntToBin(x:integer):string;
var r:string;
      c:char;
begin
       r:='';
       if x<0 then c:='-' else c:='';
       x:=abs(x);
       repeat
                r:=chr((ord('0')+(x mod 2))+r;
                x:=x div 2; 
       until x=0;
       r:=c+r;
       IntToBin:=r;
end;
begin
       write('x='); readln(x);
       b:=IntToBin(x);
       writeln(x,'(10)=',b,'(2)');
end.

program Rekt;
var a1,b: integer;
procedure F(a:integer);
 begin
   while (a div b)>0 do
   begin
   F(a div b);
   a:= a mod b;
   end;
   write(a);
end;
begin
writeln;
readln(a1);
readln(b);
F(a1);
end.

var a:integer;
s:string;
 
procedure dectobin(n:integer;var s:string);
begin
if n<>0 then
  begin
  dectobin(n div 2, s);
  s:=s+IntToStr(n mod 2);
  end;
end;
 
begin 
writeln;
writeln('Введите десятичное число:');
read(a);
if a=0 then write('0');
if a<0 then
  begin 
  a:=a*-1;
  dectobin(a,s);
  writeln('1.'+s);
  end
else
  begin  
  dectobin(a,s);
  writeln('0.'+s);
  end;
end.