стеганография.

[Dasha1610]

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

program co_dec;
uses crt;
var
fI, fO : text;
i, j  : integer;
b : byte;
sI, sO , s, d: string;  c: char;
begin
clrscr;
Assign(fI, 'CONT2.txt');
Assign(fO, 'POL2.txt');
WriteLn('Введите строку для кодирования: '); Readln(sI); 
Reset(fI);
Rewrite(fO); 


for i:=1 to Length(sI) do begin
b:= ord(sI[i]);   

for j:=1 to 8 do begin      
ReadLn(fI, s);

c:=s[i];
if ((b and 1)=1 and c=' ') then c:='  '; 

WriteLn(fO, s); 

b:= b shr 1; 
end;
end;

while Not EOF(fI) do begin    
ReadLn(fI, s);
WriteLn(fO, s);
end;

Close(fO);
Close(fI);
Writeln('Смотри полученный файл :)');
end.

[DiemonStar]

1.

ReadLn(fI, s);

Здесь вы загружаете строку из файла

c:=s[i];

А здесь вы получаете значение элемента строки, которого может просто не существовать. И, тем более, далеко не факт, что в данном месте будет пробел.
2.

if ((b and 1)=1 and c=' ') then c:='  ';

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

Чтобы исправить этот код вам нужно:

ReadLn(fI, s);

c:=s[i];
if ((b and 1)=1 and c=' ') then c:='  ';

Изменить вот этот блок на другой, работающий по алгоритму:
1. Ищем положение следующего пробела в предложении
2. если пробелов больше нет, то записываем строку в выходной файл и считываем новую строку и переходим на п.1.
3. если файл закончился, то заканчиваем кодирование
4. если бит = 1 тогда добавляем пробел в считанную строку, которую потом будем сохранять в выходном файле

[Dasha1610]

я не пойму как искать положение пробела в строке..

[Dasha1610]

program co_dec;
uses crt;
var
fI, fO : text;
i, j, z  : integer;
b : byte;
sI, sO , s, d: string;  p: char;
begin
clrscr;
Assign(fI, 'CONT2.txt');
Assign(fO, 'POL2.txt');
WriteLn('Введи текст кодировки: '); Readln(sI); 
Reset(fI);
Rewrite(fO); 

for i:=1 to Length(sI) do begin
b:= ord(sI[i]);   

for j:=1 to 8 do begin    

  

while not eof (fI) do begin
z:=0;
ReadLn(fI, s);
z:= POS(' ',s); 
if (b and 1)=1 then s := copy(s,1,z) + '_' + copy(s,z+1,length(s)-z); 
writeln(fO,s);   end;



b:= b shr 1; 
end;
end;
Close(fO);
Close(fI);
Writeln('Сотри полученное:)');
end.

почему он только первый пробел видит??что еще нужно добавить?