Задача на Паскаль. На множества.

[GhOsT_DoG]

Буду оооочень благодарен тому кто решит. ОООчень надо решение.

Даны следующие описания переменных:

Код: Выделить всё

type город=(a,b,c,d,e,f,g,h);
                 города=Set of имя;
                 группа=array[имя] of гости;

Описать логическую функцию Везде(ГР), определяющую, есть в группе ГР хотя бы один человек, побывавший в гостях у всех остальных их группы(ГР[х]-множество людей, бывших в гостях у человека с иименем х;
x:=ГР[х]