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

[Needhelp]

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

[volvo]

2 маленькие поправки к первоначальной программе:
1)

var
  count, prev: integer;

  i, j, curr_len: INTEGER; { <--- Здесь }

2)

      prev := 0;
      for j := 0 to count - 1 do begin { <--- Смотрим на стартовое значение !!! }
        if copy(s, words[j].start, words[j].len) = copy(s, words[count].start, words[count].len) then begin
          inc(words[j].amount);
          inc(prev);
        end;
      end;

Проверь сейчас...