Задачка на множества, помогите пожалуйста Опции

[Msblast]

В городе N, 100 кондитерских магазинов. Известно что в каждом из магазинов не более 20 видов сластей в ассортименте. Какие виды сластей есть во всех магазинах. Существует ли магазин торгующий уникальной продукцией. Перечислите 5 видов сластей которые есть в большинстве магазинов города N. (ассортимент кондитерских магазинов рассматривается как длинна перечисляемого типа)

я так понял тут нада записывать множества, точнее массив множеств, только толком ни че не получается.

вот что смог придумать:

program ex2;
type
asort=1..20;
asortim=set of asort;
var
MAg:array[1..100] of asortim;
i,j,ra,ra1:byte;
begin
for i:=1 to 100 do
begin
randomize;
ra:=round(random(20));
for j:=1 to ra do
begin
ra1:=round(random(20));
Include(Mag[i],ra1);
end;
end;

Помогите плиз, через 2 дня всю контрольную надо сдавать, а у меня одна эта задача висит(

[volvo]

последущие будут опять же сравниваться с предыдущими

неверно... Последующие будут сравниваться с "произведением" всех предыдущих... Смотри:

s[1] = [1 .. 5];
s[2] = [3 .. 5];
s[3] = [1 .. 4, 6 .. 10];

Изначально m = [1 .. 20]
После первой итерации: m = m * s[1] => [1 .. 20] * [1, 2, 3, 4, 5] = [1, 2, 3, 4, 5]
после второй: m := m * s[2] => [1, 2, 3, 4, 5] * [3, 4, 5] = [3, 4, 5];
после третьей: m = m * s[3] => [3, 4, 5] * [1, 2, 3, 4, 6, 7, 8, 9, 10] = [3, 4]

А теперь посмотри, какие элементы на самом деле встречаются везде?