[dermeg]

Всё сам понял надо вот так:
Randomize;
r:=Random(50)+1;
r2:=Random(r)+1;
Randomize;
kanatbonus[kanat-1]:=Random(r2)+1;