Одномерные структуры(строковые параметры=)), Нужна помощь в решении задачи... Опции

[Needhelp]

Задание: Отредактировать заданное предложение, удаляя из него те слова, которые встречаются в предложении заданное число раз.
Здесь на форуме было такое задание: "Отредактировать заданное предложение, удаляя из него слова, которые уже встречались в предложении", а такого еще не было, в общем, уже голова кругом. Нужна помощь !!

[Needhelp]

const
  max_word = 255;
  delete_it = 4;
var
  words: array[1 .. max_word] of wrd_info;
  i, n: integer;


const
  s: string = 'hop cop hop cop hop hop';

begin
  n := get_words(s, words);
  for i := n downto 1 do
    if words[i].amount = delete_it then
      delete(s, words[i].start, words[i].len);

  writeln(s);
end.

Сегодня начал проверять, заметил "косяк". Если написать 'hop cop hop cop hop hop' и в const внести delete_it =2, то он выведет все как надо, то есть 'hop hop hop hop', а вот если внести 4, то он просто выдает 'hop cop hop cop hop hop' ...
...Просмотрел эту строчку в немодифицированном варианте этой проги (взял из раздела "Разбиение на слова. Все способы") и вот что увидел (см. скрин)
Даже не знаю, что в таком случае делать???...