есть задача, допустим:

var
...
с: set of char

begin
readln(s);
c:= [ 'a', 'b']...
...
if s[i] in c then ... 

.

а если у меня задача: читаем число, и если оно равно числу из списка заданных заранее чисел, то...
в такой задаче такой алгоритм не получается использовать, а на что можно заменить?

описать set of byte и будут числа. Только от 0 до 255. Если нужен бОльший диапазон, то можно сделать массив множеств.

Точно, спасибо большое, а я чего-то и не догадалась, если бы не форум сидела бы еще полвечера над этим вопросом )))