Задача: найти и заменить слово в массиве строк, Помогите плз. Опции

[AGENT_KGB]

Задача найти и заменить слово, введенное с клавиатуры на другое, в массиве строк. Желательно в виде функции.

[Sozialist]

В чем затруднение? Стандартный поиск с FOR, POS, потом DELETE и INSERT

[AGENT_KGB]

Пробовал, но у меня зацикливает-препод мняет "баба" на "баобаба".

[Lapp]

Так ты покажи, что сделал. Подправим.

[AGENT_KGB]

Ну вот она:

         begin
            write ('Find: ');
            readln (w1);
            write ('Change: ');
            readln (w2);
            while pos(w1,s)>0 do
                  begin
                  delete(s,pos(w1,s),length(w1));
                   insert(w2,s,pos(w1,s));
                  end;
            for i:=1 to length (s) do
            write (s[i]);
            end;

Вообще работает, но зацикливает.

[volvo]

Ну, скажем, начать исправлять уже отсюда:

delete(s,pos(w1,s),length(w1));
insert(w2,s,pos(w1,s)); { <--- После удаления части строки в предыдущем операторе ??? }

Надо запомнить позицию, и потом (при вставке) не искать ее еще раз, а использовать то, что уже было найдено...

Кроме этого, где массив строк? Или ты хочешь оформить это функцией и вызывать в цикле?

P.S. Еще одно - ты написал

найти и заменить слово, введенное с клавиатуры на другое

, а можешь получить замену последовательности символов. Чтобы было слово, надо чтоб оно было с обоих сторон ограничено либо разделителями, либо началом/концом строки (как находить в строке именно слово одним If-ом - было на форуме, искать по слову "трехэтажную")

[AGENT_KGB]

Куда записывать позицию если слово не одно? В массив?

[volvo]

Примеры приводи, или выражайся как-нибудь так, чтобы было понятно. ГДЕ не одно слово?

[AGENT_KGB]

В тексте надо заменить все слова на введенное с клавиатуры, как в Ворде.