Упростить задачу, система счисления.

[REZR]

Надо перевести из 8 системы в 10.

var o,d,k,l: integer; // 
begin 
 read(o); //
 d := 0; // 
 k := 1; //
 l := 1; //
 while l <= o do //
   begin
   d := d + k*(o div l mod 10); // 
                                // 
   l := l * 10; //
   k := k * 8 // 
   end;
 writeln(d) //

[digitalis]

А если бы пришлось преобразовывать не 8-ричный, а 16-ричный?
Тут read(o); явно не катит.
Я бы сделал так:

var c:char; s: string ; i,sl,d: integer;
begin
  read(s);
  sl := Length (s) ;
  d := 0 ;
  for i := 1 to sl do
    begin
      c := s[i] ;
      d := d + ( Ord(c) and 7 ) ;
      if i < sl then d := d * 8
    end;
   writeln (d)
end;

Заодно можно было бы включить проверку корректности ввода, чтобы не затесалось что-нибудь вне 0...7 . Впрочем, данная прога перемолола бы и неправильные символы своим Ord(c) and 7 , не вылетела бы Правда, результат был бы смешной. Можешь проверить