Написать рекурсивную процедуру, переводящую целое число из восьмеричной системы счисления в десятичную

program Project1;
 
(*Рекурсивный перевод восьмеричной записи в число.*)
function Oct2Num(const aSOct : String; const aWeight, aI : Integer) : Integer;
var
  Num : Integer;
begin
  Num := 0;
  case aSOct[aI] of
    '0' : Num := 0 * aWeight;
    '1' : Num := 1 * aWeight;
    '2' : Num := 2 * aWeight;
    '3' : Num := 3 * aWeight;
    '4' : Num := 4 * aWeight;
    '5' : Num := 5 * aWeight;
    '6' : Num := 6 * aWeight;
    '7' : Num := 7 * aWeight;
  end;
  if aI > 1 then begin
    Num := Num + Oct2Num(aSOct, aWeight * 8, aI - 1);
  end;
  Oct2Num := Num;
end;
 
(*Рекурсивный перевод числа в десятиричную запись.*)
function Num2Dec(const aNum : Integer) : String;
var
  StrDec : String;
  Num : Integer;
begin
  case aNum mod 10 of
    0 : StrDec := '0';
    1 : StrDec := '1';
    2 : StrDec := '2';
    3 : StrDec := '3';
    4 : StrDec := '4';
    5 : StrDec := '5';
    6 : StrDec := '6';
    7 : StrDec := '7';
    8 : StrDec := '8';
    9 : StrDec := '9';
  end;
  Num := aNum div 10;
  if Num > 0 then StrDec := Num2Dec(Num) + StrDec;
  Num2Dec := StrDec;
end;
 
var
  SOct, SDec, S : String;
  Num : Integer;
Begin
  repeat
    Writeln('Задайте целое неотрицательное число в восьмеричной системе счисления:');
    Readln(SOct);
 
    (*Переводим восьмеричную запись в число.*)
    Num := Oct2Num(SOct, 1, Length(SOct));
    (*Переводим число в десятиричную запись.*)
    SDec := Num2Dec(Num);
 
    Writeln('Это же число в десятичной системе счисления:');
    Writeln(SDec);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
End.

program Project1;
 
(*Рекурсивный перевод восьмеричной записи в число.*)
function Oct2Num(const aSOct : String; const aWeight, aI : Integer) : Integer;
var
  Num : Integer;
begin
  Num := 0;
  case aSOct[aI] of
    '0' : Num := 0 * aWeight;
    '1' : Num := 1 * aWeight;
    '2' : Num := 2 * aWeight;
    '3' : Num := 3 * aWeight;
    '4' : Num := 4 * aWeight;
    '5' : Num := 5 * aWeight;
    '6' : Num := 6 * aWeight;
    '7' : Num := 7 * aWeight;
  end;
  if aI > 1 then begin
    Num := Num + Oct2Num(aSOct, aWeight * 8, aI - 1);
  end;
  Oct2Num := Num;
end;
 
var
  SOct, S : String;
  Num : Integer;
Begin
  repeat
    Writeln('Задайте целое неотрицательное число в восьмеричной системе счисления:');
    Readln(SOct);
 
    (*Переводим восьмеричную запись в число.*)
    Num := Oct2Num(SOct, 1, Length(SOct));
 
    Writeln('Это же число в десятичной системе счисления:');
    Writeln(Num);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
End.