Множества Pascal

[Rusl92]

Доброй ночи уважаемые форумчане.
Не могли бы Вы мне помочь:
Давненько не писал на Pascal'e, однако сейчас столкнулся вот с такой проблемой:

const n=6;
type
  mySet = set of 1..n;
  Stack=^TStack;
  TStack=record
    Elem : mySet;
    I  : Integer;
    NextElem:Stack;
    Dashed: mySet;
  end;
var F_one,F_two : array[1..3] of mySet;
....

if (F_one[i] in StackHead^.Dashed)

"Операция in не применима к типам set of 1..6 и set of 1..6"
Как разрешить данную ситуацию, заранее спасибо!

[Serge_Bliznykov]

1) Вы забыли описать, что такое у Вас StackHead
(впрочем, из контекста догадываюсь, что
var StackHead : Stack;

2) очевидно, что для множества не определена операция ВХОЖДЕНИЯ в множество
нельзя проверить ЧТоТоТипаМножество IN ЧТоТоТипаМножество

Что Вы собственно хотите сделать? (что проверить?) (для множест допустима операция пересечения, например...)

[VadikV]

тут можно попробовать операцию взятия пересечения множеств. и если результат не пустой - значит входит.

[Rusl92]

Задача решена:
(F_one[i] * StackHead^.Dashed = F_one[i])
Спасибо!