Задача на строки (удалить вхождения), Помогите студенту =) Опции

[eXtractor]

Звучит так:
«Ввести строку символов. Удалить из нее все слова, целиком составленные из вхождений не более, чем двух букв. Например, 'ансамбль АББА' → 'ансамбль'».
Хотя бы общий принцип решения…

[volvo]

только без множеств, пожалуйста.

Без множеств - так без множеств... Выделяешь слова, и с каждым из них делаешь следующее:

s := '';
for i := 1 to length(_word) do
  if pos(_word[i], s) = 0 then s := s + _word[i];

if length(s) > 2 then { В слове используется больше 2-х букв }
else { все нормально, букв не больше чем 2 }

Идея понятна?