Помогите решить задачку на строки Опции

[wary]

Условие: Дана строка символов. Дано слово (например "окно"). Удалить из заданной изначально строки слово "окно"

Алгоритм решения, который я придумал:
1. Определяем как константу слово "окно" (slovo_okno)
2. Вводим произвольную строку (st1)
3. Курабасим в цикле строку (st1) и выявляем в ней слово "окно"
4. Удаляем выявленно слово "окно"
5. Выводим на экран то что осталось от строки (st1)

Поскольку я новичок в паскале, немного трудновато с описание п.3 и п.4.

Если не трудно подскажите код как их описать, а также замечания по алгоритму.

Заранее всем спасибо!

[Bokul]

 var s,word:string; b:boolean; buf:byte;
begin
writeln('Enter string');
readln(s);
writeln('Enter word');
readln(word);
b:=true;
if s=word then
   s:=''
else
    repeat
         if copy(s,1,length(word)+1)=word+' ' then
            delete(s,1,length(word));
         if copy(s,length(s)-length(word),length(word)+1)=' '+word then
            delete(s,length(s)-length(word)+1,length(word));
         buf:=pos(' '+word+' ',s);
         if buf<>0 then
            delete(s,buf+1,length(word))
         else
             b:=false;
         until  b=false;
writeln('Result :');
writeln(s);
readln;
end.

Сообщение отредактировано: volvo - 3.11.2006 18:32