Алгоритмизация и программирование задач создания и обработки типованих и текстовых файлов

[Саша1194]

Создание обработки текстового файла
Во всех словах приставка "под" заменить на "пере"

[Niro]

Примерно так

begin
  while not eof (textfile) do
    begin
      k:= 0;
      readln (textfile, stroka);
      while k <> length (stroka) do
        begin
          inc (k);
          if s[k]='п') and (s[k+1]='о') and (s[k+2]='д') and (s[k-1]=' ') 
            then 
              begin
                delete (stroka, k, 3);
                insert ('пере', stroka, k);
             end;
        end;
    end;
end.

Код не проверял

[Serge_Bliznykov]

Сообщение от Niro

Код не проверял

ну и правильно сделали. Код жуткий. Вы же сознательно идёте на то, что индексы у Вас выходят за пределы строки (как влево, так и вправо).
(я уже молчу о том, что первый раз в строке может встретиться под без ведущего пробела)
тогда уже лучше так:

while not eof (f) do begin
    ReadLn(f, stroka);
    while Pos('под',s)>0 do begin
       k := Pos('под',s);
       if  k=1 then begin
          Delete(stroka, k, 3);
          insert('пере', stroka, k);
       end
       else {значит k>1}
          if copy(stroka,k-1,1)=' ' then begin
          Delete(stroka, k, 3);
          insert('пере', stroka, k);
       end;       
    end;

    {вывод полученной строки}
    ....

end;

[Arhangel7]

а чем плох 'StringReplace' ?

[Hacker19_90]

а чем плох 'StringReplace' ?

Тем что скорее всего Язык Паскаль
И компилятор turbo pascal