[rerebro]

Сообщение от Bargest

Для начала не понял этого:

Код:

for i := 0 to words.Count-1 do
    snum[i]:=1;

Инициализировать надо нулями.

Каждое слово в списке уже 1 раз в тексте встречается точно.
В принципе выставив тут 0 я получу вместо 2 2 2. 1 1 1