Двоичная система исчисления

[Anton34]

Помогите найти ошибку в программе которая по идее должна переводить число из десятичного в двоичное.
Pascal

program dva;
var mas:array[1..1000] of integer;i, count,c:integer;
begin
writeln('Введите десятичное число');
readln(c);
i:=1;
count:=0;
repeat
 if (c<>1) then begin
  mas[i]:=c mod 2;
   c:=c div 2;
    i:=i+1;
    count:=count+1;
 end;

 until (c=1);

 for i:=count downto 1 do begin
 write (mas[i]);
 end;
 write('1');

 readln;
 end.

[Stilet]

Предлагаю так:

repeat
 if (c and 1)<>0 then   mas[i]:=1 else mas[i]:=0;
   c:=c shr 2;
    i:=i+1;
    count:=count+1;
 end;
until (c=0);

[DiemonStar]

http://programmersforum.ru/showthread.php?t=186340 - вот тут много примеров

[Pein95]

спс, буду читать.