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

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

А если +1 оставить, рандомайз может там присутствовать с l = 255?

[Lapp]

А если +1 оставить, рандомайз может там присутствовать с l = 255?

Что бы сие значило? при чем тут "рандомайз"?
Ты имей в виду только, что l и d нужно выбирать так, чтоб сумма l+d не превышала 255.


Добавлено через 4 мин.
если ты хочешь, чтобы в массиве C были ВСЕ возможные числа типа byte (от 0 до 255, всего 256 штук), то положи l=256, а d=-1