Code tính từ thập phân ra nhị phân

[nantrigger (Trọng Nghĩa)]

Các bác ơi cho em xin ý kiến về sử dụng vòng lặp để tính từ thập phân ra nhị phân
Hiện tại e đang mắc 1 lỗi là đã tính ra nhị phân rồi nhưng mà nó bị đảo lộn. Các bác tham khảo code của em rồi giúp e sửa chỗ e sai với ạ, thật sự e không biết nên làm thế nào.
Đây là code của em :

 var     a,n:longint;
        f1,f2:text;
begin
        assign(f1,'nhiphan.inp');
        assign(f2,'nhiphan.out');
        reset(f1);
        rewrite(f2);
        read(f1,a);
        n:=a;
        While n>0 do
                begin
                Write(f2,n mod 2);
                n:=n div 2;
		end;
        close(f1);close(f2);
end.

[Sherly1001]

Thì bạn đảo ngược lại là được thôi mà. Bạn có thể xài đệ quy, stack, hoặc đơn giản hơn thì lưu vô một mảng rồi in ngược lại là được mà.