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

[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.

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

[Sav93]

Дано N множеств, найти множество содержащее максимальное количество элементов, все возможные елементы множества заданы в массиве С.
Вот так она звучит.

[Lapp]

Дано N множеств, найти множество содержащее максимальное количество элементов, все возможные елементы множества заданы в массиве С.
Вот так она звучит.

Если она так звучит, то ты начал делать неправильно: у тебя массив C - это как раз массив множеств.
Вот, как-то так, думаю, нужно..

Program LabRob2;

const
  n= 12;  {кол-во множеств}
  l= 50;  {кол-во возможных элементов}
  d= 10;

Type
  TypeSet = set of byte;

Var
  s:array [1..n] of TypeSet;
  c: array [1..l] of byte;
  t: TypeSet;
  i,j,k,m,max: byte;

BEGIN
  {зададим массив c (в данном случае просто от d+1 до d+l}
  for i:=1 to l do c[i]:=i+d;

  {заполняем вспомогательное множество t всеми элементами из c}
  t:= [];
  for i:=1 to l do Include(t,c[i]);

  {заполняем множества случайным образом}
  For i:=1 to n Do
    for j:=1 to l do begin
      k:= Random(256);
      if k in t then Include(s[i],k)
  end;

  {считаем мощность каждого множества и одновременно ищем максимум}
  max:= 0;
  k:= 1;
  for i:=1 to n do begin
    m:=0;
    for j:=1 to l do if c[j] in s[i] then Inc(m);
    if m>max then begin
      max:= m;
      k:= i
    end
  end;
  writeln('множество номер ',k,' имеет максимальное количество элементов (',max,')');
  readln
END.