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

[Dasha1610]

помогите найти ошибку, почему не выводится ничего.вроде все правильно..

 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.

[Black_Shem]

Ошибка в том , что комментариев нет))
А что за алгоритм шифрования?
Зачем символ в трех вложенных циклах читается?
Задание было и код зашифровать?
Для меня вообще загадка как это правильно должно работать, напишите ТЗ).

[Dasha1610]

Задание: расшифровка строки.
а файле POL3.txt зашифрован текст, в котором некоторые русские буквы заменены английскими(в ходе шифрофки). и нужно соответственно считать каждую букву, посмотреть англ она или русская. если англ, то 1, если русская то 0. соответственно получаем двоичный ряд который далее преобразуется в символы.
как то так.(надеюсь понятно)