Ну принцип тот же, что указал
ART
можно тока
Код:
type
TMass = set of char;
ну и тогда
Код:
function StrExists(S:string; M: TMass):boolean; // функция вернет True если S содержится в M
begin
if S in M = True then
Result := True;
else
Result := False;
end;