Преобразование строки восьмеричных цифр в целое десятичное число

Var n,i,j:longint;
    s:string;
    A:array[1..5] of longint;
Procedure Iz8v10(s:string;Var n:longint);
Var i,l:byte;
Begin
    n:=0;l:=Length(s);
    For i:=1 to l do
     n:=n+(ord(s[i])-48)*round(exp((l-i)*ln(8)));
End;
Begin
    Randomize;
    writeln('Массив');
    For i:=1 to 5 do
    Begin
      For j:=1 to 3+random(3) do
       A[i]:=A[i]*10+random(8);
      write(A[i]:6);
    End;
    writeln;
    writeln('Результат');
    For i:=1 to 5 do 
    Begin
      Str(A[i],s);
      Iz8v10(s,n);
      write(n:6);
    End;
    readln;
End.

uses crt;
function Todec1(s:string):longint;
var i,r,f:longint;
begin
r:=0;f:=1;
for i:=length(s) downto 1 do
 begin
  r:=r+f*(ord(s[i])-48);
  f:=f*8;
 end;
ToDec1:=r;
end;
procedure Todec2(s:string;var r:longint);
var i,f:longint;
begin
r:=0;f:=1;
for i:=length(s) downto 1 do
 begin
  r:=r+f*(ord(s[i])-48);
  f:=f*8;
 end;
writeln('Число в СС 10=',r);
end;
var s:array[1..5] of string;
    i,k,j:integer;
    r,f:longint;
begin
clrscr;
randomize;
for i:=1 to 5 do
 begin
  repeat
   write('Количество разрядов в числе ',i,' в СС 8 (от 1 до 10) k=');
   readln(k);
  until k in [1..10];
 s[i]:='';
 for j:=1 to k do
  begin
   if(j=1)and(k>1)then s[i]:=s[i]+chr(49+random(7))
   else s[i]:=s[i]+chr(48+random(8))
  end;
 end;
clrscr;
writeln('В СС 8       В СС 10');
for i:=1 to 5 do
 begin
  gotoXY(1,whereY);
  writeln(s[i]:10,Todec1(s[i]):10);
 end;
readln;
end.

procedure Todec2(s:string;var r:longint);
begin
  r:=ToDec1(s);
end;

function FromOct(s: String): Longint;
var
  i: Integer;
  r: Longint;
begin
  r:=0;
  for i:=1 to Length(s) do
     r:=r*8+(Ord(s[i])-Ord('0'));
  FromOct:=r;
end;