Перевод из 8СС в 10СС

var
a:string;
 
FUNCTION OCT2DEC(OCT: STRING): LONGINT;
 
CONST
  OCTSet: SET OF CHAR = ['0'..'7'];
 
VAR
  J    : LONGINT;
  Error: BOOLEAN;
  DEC  : LONGINT;
 
BEGIN
  DEC := 0;
  Error := False;
  FOR J := 1 TO Length(OCT) DO
  BEGIN
    IF NOT (UpCase(OCT[J]) IN OCTSet) THEN Error := True;
    DEC := DEC + (Ord(OCT[J]) - 48) SHL ((Length(OCT) - J) * 3);
    { 8^N = 2^(N * 3) }
    { N SHL ((Length(OCT) - J) * 3) = N * 8^(Length(OCT) - J) }
  END;
  IF Error THEN OCT2DEC := 0
  ELSE OCT2DEC := DEC;
END;
 
begin
writeln('Введите число в 8-ой системе счисления: ');
   readln(a);
   writeln(oct2dec(a));
readln;
end.

uses crt;
var k,i,j:byte;
    sum,sum1:longint;
    s:string;
begin
clrscr;
k:=0;
repeat
write('Vvedite chislo v sisteme 2 s=');
readln(s);
for i:=1 to length(s) do  //проверяем правильность введенных символов
if not (s[i] in ['0'..'1'])
then k:=1;
until k=0;
sum:=0;
for i:=length(s) downto 1 do//смотрим строку с конца
   begin
     if s[i]='1' then //если единица
        begin
          sum1:=1; //начальное значение числа  в 10й
          for j:=1 to length(s)-i do sum1:=sum1*2; //возводим 2 в степень позиции 1 в строке
        end
     else sum1:=0;//если ноль, значит ноль
     sum:=sum+sum1;//составляем число в 10й
   end;
writeln('Chislo v sisteme 10= ',sum);
readln
end.