Стеганография

[Dasha1610]

program e1;
uses crt;
Label 1, 2;
var F:file of byte; b:byte; i:integer;
    C:Integer;B1:Integer;s:String;
    F1:text;sf1:string;
    FF,FO:text;sf:string;
begin
clrscr;

Assign(F,'SECRET.txt');
                              Assign(FO,'DVO.txt');
Reset(F);                     Rewrite(FO);
while not eof(F) do
  begin
  Read(F,b);
S:='';
B1:=b;
2: C:= b Div 2;
If b-C*2 = 0 Then S := '0'+S;
If b-C*2 = 1 Then S := '1'+S;
If C<1 Then Goto 1;
b:=C;
Goto 2;
1: Write ('0',s) ;write;  Write(FO,'0'+s);
end;



Assign(F1,'CONT.txt');
Assign(FF,'POL.txt');
Reset(F1);
Rewrite(FF);
reset(FO);


 While not eof (F1) do
 begin
 Readln(F1,sf1);
 Readln(FO,s);
 for i:=1 to 24 do
 begin
 if s[i]='1' then begin sf:=sf1+'_';  writeln(FF,sf); end
              else  begin sf:=sf1;      writeln(FF,sf); end;

 end;
 end;
close(F);
Close(F1);
Close(FF);
Close(FO);
Readln;

End.

найдите ошибку.почему каждую строчку 24 раза записывает и кодирует..??(

[Dasha1610]

While not eof (F1) do
 begin
 Readln(F1,sf1);
 Readln(FO,s);
 for i:=1 to 24 do
 begin
 if s[i]='1' then begin sf:=sf1+'_';  writeln(FF,sf); end
              else  begin sf:=sf1;      writeln(FF,sf); end;

 end;
 end;

ошибка в этой части

[Serge_Bliznykov]

Даша, а чем не устроила Вас ваша прошлая тема?
По-моему, это та же задача...

[Dasha1610]

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