Преобразовать набор нулей и единиц (двоичное число) в десятичное

var i, multiply,result:longint;
    digit:byte;
    fail:boolean;
begin
    writeln('Input binary number:');
        readln(i);
        multiply := 1;
        result:=0;
    fail:=false;
        repeat
        {Вычисление младшей значащей цифры}
                digit := i mod 10;
 
        if((digit <> 0) and (digit <> 1))then
        begin
            {Число не двоичное}
            writeln('Number is not binary');
            fail:=true;
            break;
        end;
 
        {Целочисленное деление на 2 сдвигом на 1 бит вправо}
                i := i shr 1;
 
        {Целочисленное деление на 5,
         чтобы вместе с предыдущей операцией получилось деление на 10}
        i := i div 5;
 
        {Вычисление результата результата}
        result:=result+digit*multiply;
 
        {Обновление разрядного множителя}
        multiply:=multiply*2;
        until i = 0;
    if (fail=false)then
    begin
        writeln('Decimal number:');
        writeln(result);
    end;
end.

var i, multiply,result:longint;
    digit:byte;
    fail:boolean;
begin
    writeln('Input binary number:');
        readln(i);
        multiply := 1;
        result:=0;
    fail:=false;
        repeat
        {Вычисление младшей значащей цифры}
                digit := i and 1;
 
        if((i mod 10 <> 0) and (i mod 10 <> 1))then
        begin
            {Число не двоичное}
            writeln('Number is not binary');
            fail:=true;
            break;
        end;
 
        {Целочисленное деление на 2 сдвигом на 1 бит вправо}
                i := i shr 1;
 
        {Целочисленное деление на 5,
         чтобы вместе с предыдущей операцией получилось деление на 10}
        i := i div 5;
 
        {Вычисление результата результата}
        result:=result+digit*multiply;
 
        {Обновление разрядного множителя}
        multiply:=multiply*2;
        until i = 0;
    if (fail=false)then
    begin
        writeln('Decimal number:');
        writeln(result);
    end;
end.

type
    int=integer;
var
    result,k:longint;
    i:int;
    input:string;
begin
readln(input);
k:=1;
for i:=length(input) downto 1 do begin
    result:=result+k*(ord(input[i])-ord('0'));
    k:=k*2;
end;
writeln(result);
readln;
end.

program project2;
var
x:longint;
i, n:integer;
begin
writeln('Введите натуральное число (макс. 9 знаков): ');
readln(x);
n:=1;
write('Число состоит из цифр: ');
write(' ');
for i:=0 to 10 do
begin
n := x mod 2;
write(#8,n);
x := x div 2;
n := n+1;
if x = 0 then break;
end;
writeln;
writeln('Для выхода нажмите ENTER');
readln
end.

var
  s : string;
  i : byte;
  x,x1: longInt;
begin
  write('Input dwoichnoe chislo [0..1] = '); readln(s);
  x:=0; x1:=1;
  for i:=Length(s) downto 1 do
  if s[i] in ['0','1'] then begin
    if s[i]='1' then x:=x+x1;
    x1:=x1 shl 1; { x1:=x1*2}
  end else begin
    writeln('stroka ne sootwetstwuet uslowiu!');
    readln; exit;
  end;
  writeln(s,' = ',x);
  readln;
end.