Из вектора двоичных разрядов получить десятичное число

type digits = array [0..sizeof(longint) * 8 - 1] of byte;
var d: digits;
    i, n: longint;
    s: string;
    error: boolean;
begin
  error := false;
  for i := 0 to 31 do d[i] := 0;
  writeln('Введите двоичное представление числа, не более 32 разрядов: ');
  repeat
    readln(s);
    error := length(s) > 32;
    if not error
      then
        for i := length(s) downto 1 do
          if s[i] in ['0', '1']
            then d[length(s) - i] := byte(s[i]) and 1
            else begin
              writeln('Ошибка: число содержит неверную двоичную цифру: ', s[i], ', повторите ввод.');
              error := true;
              break
            end
      else writeln('Ошибка: в числе более 32 разрядов, повторите ввод.')
  until not error;
  n := 0;
  for i := 31 downto 0 do n := n shl 1 or d[i];
  write('Десятичное представление числа: ', n);
  readln
end.

type digits = array [0..sizeof(longint) * 8 - 1] of byte;
var d: digits;
    i, n, k: longint;
    t: byte;
begin
  for i := 0 to 31 do d[i] := 0;
  writeln('Введите двоичное представление числа, по одной цифре в строке,');
  writeln('начиная со старших цифр, если цифр менее 32, то окончание ввода - число 2:');
  n := 31; {пока считаем, что число максимальной длины}
  for i := 0 to 31 do {ввод по одной цифре, начиная со старших разрядов}
    begin
      repeat
        write(': ');
        readln(k);
        if (k < 0) or (k > 2) then writeln('Ошибка: неверная цифра, повторите.')
      until (k >= 0) and (k <= 2);
      if k = 2
        then begin
          n := i - 1; {если введено менее 32 разрядов, запоминаем}
          break
        end
        else d[i] := k
    end;
  for i := 0 to n div 2 do {"переворачиваем" число, чтобы младший разряд был нулевым}
    begin
      t := d[i];
      d[i] := d[n - i];
      d[n - i] := t
    end;
  n := 0;
  write('Двоичное представление числа: ');
  for i := 31 downto 0 do
    begin
      write(d[i]:1);
      n := n shl 1 or d[i]
    end;
  writeln;
  write('Десятичное представление числа: ', n);
  readln
end.

type digits = array [0..sizeof(longint) * 8 - 1] of byte;
var d: digits;
    n: longint;
    i, t, k: byte;
begin
  for i := 0 to 31 do d[i] := 0;
  writeln('Введите двоичное представление числа, по одной цифре в строке,');
  writeln('начиная со старших цифр, если цифр менее 32, то окончание ввода - число 2:');
  k := 31; {пока считаем, что число максимальной длины}
  for i := 0 to 31 do {ввод по одной цифре, начиная со старших разрядов}
    begin
      repeat
        write(': ');
        readln(t);
        if t > 2 then writeln('Ошибка: неверная цифра, повторите.')
      until t <= 2;
      if t = 2
        then begin
          k := i - 1; {если введено менее 32 разрядов, запоминаем}
          break
        end
        else d[i] := t
    end;
  for i := 0 to k div 2 do {"переворачиваем" число, чтобы младший разряд был нулевым}
    begin
      t := d[i];
      d[i] := d[k - i];
      d[k - i] := t
    end;
  n := 0;
  write('Двоичное представление числа: ');
  for i := k downto 0 do
    begin
      write(d[i]:1);
      n := n shl 1 or d[i]
    end;
  writeln;
  write('Десятичное представление числа: ', n);
  readln
end.

type digits = array [0..sizeof(longint) * 8 - 1] of byte;
var d: digits;
    n: longint;
    i, t, k: byte;
begin
  for i := 0 to 31 do d[i] := 0;
  writeln('Введите двоичное представление числа, по одной цифре в строке,');
  writeln('начиная с МЛАДШИХ цифр, если цифр менее 32, то окончание ввода - число 2:');
  k := 31; {пока считаем, что число максимальной длины}
  for i := 0 to 31 do {ввод по одной цифре, начиная с младших разрядов}
    begin
      repeat
        write(': ');
        readln(t);
        if t > 2 then writeln('Ошибка: неверная цифра, повторите.')
      until t <= 2;
      if t = 2
        then begin
          k := i - 1; {если введено менее 32 разрядов, запоминаем}
          break
        end
        else d[i] := t
    end;
  n := 0;
  write('Двоичное представление числа: ');
  for i := k downto 0 do
    begin
      write(d[i]:1);
      n := n shl 1 or d[i]
    end;
  writeln;
  write('Десятичное представление числа: ', n);
  readln
end.