Pascal/Delphi conversao de octal para decimal

[joaocad]

Alguém poderia me dar uma dica... não esta funcionando.

 

Program Pzim ;
var posi,i,a,e:integer;
var octal: string[8];
    decimal: real ;
    potencia, qtde_numeros: integer;
    
Begin
   write('Digite o octal para ser convertido: ');
   readln(octal);
  
   qtde_numeros:=length(octal);
     
  potencia:= 0;
 
 for a:=1 to qtde_numeros do
    //val(octal[a],decimal,e);
        //decimal:=octal[a];
       
   for i:=qtde_numeros downto 1 do
         begin
        
         
              decimal:=decimal*(exp(potencia*ln(8)));
              potencia:=potencia+1;
             
         end;
     writeln ('O numero Octal ',octal,' e igual a ',decimal:0:0,' em decimal');
    
End.

 

[devair1010]

@joaocad     seu código está bom , só está com hum erro por que precisa calcular usando o dígito do número e você esqueceu de colocar isso no código na hora de calcular ,  então apenas nessa linha aqui está errado , então coloque assim  :

 decimal:=decimal+(ord(octal[i])-48)*(exp(potencia*ln(8)));