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

var M:array [1..20] of integer;

   n, Ch, Ost : integer;

Begin

  ReadLn(n);

  while n >= 2 do

     begin

     Ch := n div 2;

     Ost := n mod 2;

     M[] := Ost;

     end;

  WriteLn( M[]);

end.