Извлечение кодировки.

[Dasha1610]

Есть текст и в нем надо скрыть некоторую фразу, состоящую из букв. Буквы этой фразы представляются как байты. Эти байты надо разбить на биты.
Если бит секретного сообщения равен единице, то в тексте-контейнере меняем русскую букву на английский аналог. Если бит равен нулю, то очередную букву-аналог в тексте-контейнере оставляем без изменений. Буквы-аналоги - это буквы русского языка, имеющие аналогичное начертание в англ. языке.(их всего 17)
и соотвественно расшифровка программы.
вот что получилось у меня но почему то не работает. помогите найти ошибку!!!!

 var
 fO:File Of Byte; 
 i,j:Integer;
 c,b:Byte;
 index:Integer;
 sI: string;
Const
  Rus:Array[1..17] Of Char = ('À','à','Â','Å','å','Ê','Ì','Í','Î','î','Ð','ð','Ñ','ñ','Ò','õ','Õ');
  Eng:Array[1..17] Of Char = ('A','a','B','E','e','K','M','H','O','o','P','p','C','c','T','x','X');
Begin
  Assign(fO,'POL3.txt');
  Reset(fO);
  sI:='';
While Not Eof(fO) Do
  Begin
    b:=0;
      For i:=1 To 8 Do
        Begin
          b:= b Shr 1;
          index:= 0;
        Repeat
           If Eof(fO) Then Break;
          Read(fO,c);
          For j:=1 To 17 Do
            If (c = Ord(Rus[j])) Or (c = Ord(Eng[j])) Then
              index:=j;
        Until index <> 0;
             If Eof(fO) Then Break;
      If c = Ord(Eng[index]) Then
        b:=b Or $80;
      End;
       sI := sI + chr(b);
  End;
  WriteLn('было зашифровано слово: ',sI);
  Close(fO);
End.