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

[Julia1]

Нужна срочная помощь! Люди ПоМоГиТе я написала программу а она не работает и в чём проблема не могу найти и понять!

program perebod;
 var
  bin: string[8]; { изображение двоичного числа }
  des: integer; { десятичное число }
  r: string[1]; { i-й разряд двоичного числа }
  v: integer; {объем i-ro разряда двоичного числа }
  i: integer; { номер разряда двоичного числа }
   begin
    writeln('Введите восьмиразрядное двоичное число');
    writeln('n нажмите Enter.');
    write (' › ');
    readln(bin);
    if Length(bin) <> 8 then
     writeln('Число должно быть восьмиразрядным.') else 
       begin 
      i:= 0;
       v:= 128; {объем 8-го разряда двоичного числа }
       for i:= 1 to 8 do
         begin
         r:= bin[i]; { выделить i-й разряд }
         if r = 'i1' then
         des:= des+v; 
         v:= Round(v/2); { вычислить объем следующего разряда }
         end;
        write('Двоичному числу ',bin); 
        writeln('соответствует десятичное ',des);
       end;
    writeln('Для завершения работы программы нажмите Enter.');
    readln;
 end.

[Son Of Pain]

Ты сравниваешь с 'i1'. Зачем там буква i? )