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.