рандом множество

[ganz]

Помогите пжлста!Как из set of 0..47 рандомом новые множества с разными мощностями,из них min,max по мощности.Я начал так

procedure TfmExample.bbRunClick(Sender: TObject);
const n=10;r=5;
type
dig=set of 0..47;
var
m,a:array[1..256] of integer;p,i,k:integer; s:string;
begin s:=''; mmOutput.Lines.Clear;
randomize;
k:=random(n)+1;
for i:=1 to k do
begin
m[i]:=random(48);s:=s+#9+IntToStr(m[i]);
if i mod k=0 then
begin
mmOutput.Lines.Add(s);
end;
end;
end;
end.

[Alex_FF]

что есть мощность?

[ganz]

мощность нового множества

[ganz]

колличество элементов множества

[ganz]

у меня дальше с циклом не получается,нужно хотя бы несколько

[ganz]

может кто нить кинет че нить