как оптимальным способом проверить, встречалось ли слово в тексте

[Rusl92]

Здравствуйте, не могли бы вы мне помочь
есть текст
все слова в нем разделены пробелами (причем одиночными)
слово может состоять из 1..50 символов
а слов может быть до 20000
как проверить встречалось ли раньше это слово в тексте
нужен оптимальный вариант

вариант - загнать все слова в массив
а затем прогонять есть ли новое слово в массиве - не проходит

и вариант со множеством - просто проверять
новое слово in slova
не проходит так как нельзя создать множество типа string[50]
(slova: set of string[50])

какие есть еще варианты
заранее спасибо!

[Gorychev]

А такой вариант вам не подходит:

var search, text: string;
begin
  search := 'слово';
  text:= 'все слова в нем разделены пробелами причем одиночными слово может состоять из 1..50 символов';
  if pos((' ' + search + ' '), text) > 0 then caption := 'Есть такое слово';
end;

[Greblin]

Можно строить бинарное дерево поиска по ходу дела, в нём искать будет уже намного быстрее

[OCTAGRAM]

Алгоритм Бойера — Мура — Хорспула