مشکل تو یه برنامه(پاسکال)

[lvlj]

من یه برنامه می خوام بنویسم که بیاد یه عدد بگیره معادل باینریشو حساب کنه.
برنامشم نوشتم ولی نمی دونم چرا درست کار نمی کنه. برای بعضی عددا درسته ولی بیشترشونو غلط حساب می کنه :
program test;
uses crt;
const
n=2;
type
arr=array [1..1000] of integer;
var
r,d:arr;
i,j,count,num:integer;

begin

clrscr;
Write('Enter a number : ');
readln(num);
{*****************}

r[1]:=num mod n;
d[1]:=num div n;

i:=1;
count:=1;

while d>=n do
begin

r[i+1]:=d mod n;
d[i+1]:=d mod n;
i:=i+1;
count:=count+1;

end;

write('the binary value of number is : ');
write(d[count]);

for j:=count downto 1 do
write(r[count]);
readkey;

end.

 

[lvlj]

حل شد