Hãy Vct Pascal nhập vào số nguyên n,dùng mod và div để chuyển số nguyên n thành số nhị phân

Chuyển 1 số từ hệ thập phân sang nhị phân.

Program DOI_THAP_PHAN_SANG_NHI_PHAN;
Uses Crt;
Var d:array[1..20] of byte;
         i,j,n:integer;
Begin
        Clrscr;
        Writeln('DOI SO THAP PHAN SANG NHI PHAN:');
        Writeln('------------------------------------');
        Write('Nhap so thap phan la n='); Readln(n);
         i:=1;
       Repeat
             d[i]:=n mod 2;
             n:=n div 2;
             i:=i+1;
       Until(n=0);
       Write('So nhi phan la:');
        For j:=i-1 downto 1 do
           Write (d[j]);
        Readln;
End.