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