Помогите с функцией перевода из системы счисления N в 10?

function ToDec(n:string; i, radix:longint):longint;
const
   digit: string[16]='0123456789ABCDEF';
begin
  if n[1]='0' then delete(n,1,1)
  else
  if i in [1..(length(n))] then
  begin
    m:=m*radix+pos(n[i],digit)-1;
    m := ToDec(n,i+1, radix)+m;
  end;
  ToDec:=m;
end;

function MyProcedure(nn: string; rr: integer): integer; // что тут не поянтного???
var // а тут?
count: string;
s: string;
 
begin
s := copy(nn, 1, 8); //здесь сам решишь сколько нужно откусить -- сделаешь проверку
delete(nn, 1, 8); // не проходилли??
s// форматируешь в десятеричное число
count := IntToStr("Твоё число"); //тут используй str(MyInteger);
if Trim(nn) <> "" then // тут length(nn), но смотри чтобы не было пробелов в начале и в конце строки
count := count + MyProcedure(nn, rr); // вызываешь опять функию, 
return StrToInt(count); // тут ипользуешь val(Mystring)
end;
BEGIN //твоя главная программа
var
num, radix: integer;
 
begin
n = "Number";
num := MyProcedure(n, radix); // вызов функции, также как и в паскале, возвращает (должна) твоё десятичное число
END;

program Perevod_2;
var
  n: longint;
  Oct: string;
  Dec: longint;
const
   digit: string[16]='0123456789ABCDEF';
Function FromDec(n, radix:longint):string;
{перевод числа n из 10-й c/c в radix}
  var
    s: String;
  begin
    s:='';
    if n>0 then
          begin
            s:= digit[(n mod radix)+1]+s;
             n:= n div radix;
             s:= FromDec(n,radix)+s;
           end;
   FromDec:=s;
end;
function ToDec(n:string; radix:longint):longint; {перевод числа n из radix с/с в 10-ную}
  Var
    i ,m:longint;
    Pow, l: real;
  Const
    St: real =2;
  function ToDecIn(n:string; radix:longint):longint; {результат: число в 10-ной с/с умноженное на 2  length(n)+1 раз}
    begin
      if n[1]='0' then delete(n,1,1) { удаления 0 слева( если он есть)}
        else
          if i in [1..(length(n))] then {проверка условия i = длине стоки n}
                         begin
                            m:=m*radix+pos(n[i],digit)-1;
                            i:= i+1;
                            m := ToDecIn(n, radix)+m; {рекурсия функции}
                         end;
     ToDecIn:=m;
end;
  begin
    m :=0;
    i :=1;
    Pow :=Exp(Length(n)*Ln(St)); {Возведение в степень Length(n)^2 }
    ToDec:=round(ToDecIn(n,radix)/Pow); {Вычисление результата  ToDec}
    
  end;
begin
  Write ('Dec?: ');
  ReadLn (n);
  Oct:=FromDec (n, 8);
  Writeln ('OCT= ',Oct);
  Dec:= ToDec(Oct, 8);
  Writeln ('DEC= ',Dec);
  readln;
end.