Похоже на мистику...

Type
 LongArray = Array Of LongInt;
 
 
Function GetDigits(n, p: LongInt): LongArray;
Var
 x: LongArray;
Begin
 While (n <> 0) Do
  Begin
   SetLength(x, Length(x)+1);
   x[Length(x)-1] := n Mod p;
   n := n Div p;
  End;
 GetDigits := x;
End;
 
Function Digit2Char(n: LongInt): Char;
Begin
 If (n < 10) Then
  Digit2Char := Chr(Ord('0')+n)
 Else
  Digit2Char := Chr(Ord('A')+n-10);
End;

Type
 LongArray = Array Of LongInt;
 
Function C2D(c: Char): LongInt;
Begin
 If (c < 'A') Then
  C2D := Ord(c)-Ord('0')
 Else
  C2d := Ord(c)-Ord('A')+10;
End;
 
Function GDFS(s: String): LongArray;
Var
 x: LongArray;
 i: LongInt;
Begin
 SetLength(x, Length(s));
 For i := 1 To Length(s) Do
  x[i-1] := C2D(s[i]);
 GDFS := x;
End;
 
Function GetNumber(x: LongArray; p: LongInt): LongInt;
Var
 i, n: LongInt;
Begin
 n := 0;
 For i := 0 To Length(x)-1 Do
  n := p*n+x[i];
 GetNumber := n;
End;