Множество Опции

[Sav93]

Задача: Есть N множеств, найти множество содержащей больше различных элементов, все возможные елементы множества заданы в массиве С.

 
Program LabRob2;
Uses CRT;
Type
    TypeSet = set of byte;
Var
   C:array [1..12] of TypeSet;
   r,n,j,i,k:byte;
BEGIN
ClrScr;
WriteLn('Vvedite elementi mnozhestva: ');
 Randomize;
 For i:=1 to 12 Do
 Begin
  r:=Random(9);
  Include(C[i],r);
end;
ReadKey;
END.

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