Viết chương trình pascal đổi một số nguyên dương từ hệ đếm cơ số 10 sang hệ đếm cơ số 2

Program Doi_thap_phan_ra_nhi_phan;
Var He10,N,Y:Word;
      He2,Tam:String;
Begin
   Readln(He10);
   N:=He10;
   He2:=' ';
   Repeat
    Y:=He10 Mod 2;
      Str(Y, Tam);
      He2:=Tam + He2;
      He10:= He10 Div 2;
   Until He10 = 0;
   Writeln;
   Writeln('+So he 10 la     : ',N);
   Writeln('+Doi sang he 2 la: ',He2);

 Readln
End.