Слово в тексте Опции

[}0pa]

Помогите исправить фрагмент программы, считающей сколько раз встречается в строке слово "word".

Код

while j<>length(stroka) do  {может здесь исправить length(stroka)+4}
begin
  if copy(stroka,j,4)='word' then  
   begin
     k:=k+1;
     j:=j+4  {конечно,можно было бы и без этого, но тогда придется обрабатывать ненужные символы}
    end        

[Michael_Rybak]

1. Вместо <> length поставь <> length + 1 (посмотри, к примеру, как оно работает на строке, состоящей только из одного слова word)

2. После if copy(stroka,j,4)='word' then допиши else Inc(j)