[Помогите!] Перевод из 62-х ричной системы в десятиричную

[Alone-Outlander]

Доброго дня!

Пишу программу, но для ее выполнения необходимо написать алгоритм перевода из шестидесятидвухричной системы в десятичную.

Помогите, кто чем может.

[metraz]

Оно?
А эта функция перевода числа из р-ричной системы счисления в 10-чную.

function _Rto10(s:string;R:word):longint;
var z,m,n:integer;
function stepen(x,n:integer):longint;
var k,i:longint;
begin
k:=1;
for i:=1 to n do k:=k*x;
stepen:=k;
end;
begin
m:=0;
for i:=1 to length(s) do
begin
val(s[i],n,z);
if z<>0 then n:=10+ord(UpCase(s[i]))-ord('A');
m:=m+stepen(R,length(s)-i)*n;
end;
_Rto10:=m;
end;

[Alone-Outlander]

Буду пробовать. Еще бы кто "разжевал" данную функцию...