Pascal/Turbo Pascal - Pasar de Base Décimal a Binario Recursivamente

Function DecToBin(N :Word) :String;

    Var

        R :String;

    Begin

        R := 0;

        If (N>0) then R :=Chr(N Mod 2+48) + DecToBin(N Div 2);

        DecToBin := R;

    End; {DecToBin}

Function DecToBin(N :Word) :String;

         Var

            R :String;

         Begin

              R := '0';

              If (N>0) then

                 R :=DecToBin(N Div 2) + Chr(N Mod 2+48);

              DecToBin := R;

         End; {DecToBin}