Перевод десятичного числа в другую систему счисления

Const
{ alphavit : string[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';}
  alphavit : array[0..35] of Char = ('0','1','2','3','4','5','6','7','8','9',
                                     'A','B','C','D','E','F','G','H','I','J',
                                     'K','L','M','N','O','P','Q','R','S','T',
                                     'U','V','W','X','Y','Z');
Function IntToN(A : Longint; Raz : Byte) : String;
Var
  S : String;
  n : Longint;
    Function NTC(N : Byte) : Char;
    Begin
      If N in [0..35] then
      NTC:=alphavit[N];
    End;
Begin
  S:=''; n:=A;
  While n>0 do
  Begin
    S:=NTC(n mod Raz)+S;
    n:=n div Raz;
  End;
  IntToN:=S;
End;
 
Function NToInt(S : String; Raz : Byte) : Longint;
  Function k10(k : Byte) : Longint;
  Begin
    If k>0 then k10:=Raz*k10(k-1)
      else k10:=1;
  End;
  Function CTN(C : Char) : Byte;
  Var ii : Byte;
  Begin
    CTN:=0;
    For ii:=0 to 35 do
      If alphavit[ii]=UpCase(C) then
      Begin
        CTN:=ii;
        Break;
      End;
  End;
Begin
  If Length(S)>1 then
    NToInt:=CTN(S[1])*k10(Length(S)-1)+NToInt(Copy(S,2,Length(S)-1),Raz)
  else
    NToInt:=CTN(S[1]);
End;
 
Begin
 {} Writeln(IntToN(4,2));
 {} Writeln(IntToN(10,16));
 {} Writeln(NToInt('100',16));
 {} For Var i:=2 to 16 do
 {} Begin
 {}   Writeln(i,'  ',IntToN(10,i));
 {} End;  
End.