Смотрите, коллега, в начале вы генерите рандомное число:
Код:
i := random(integer($FFFFFFF6)); до 6
а дальше смотрите, что нужно выполнить:
Код:
if i=0 and i<>1 and i<>3 and i<>4 and i<>5 then dejstvie1; if i<>0 and i=1 and i<>3 and i<>4 and i<>5 then dejstvie2; if i<>0 and i<>1 and i=3 and i<>4 and i<>5 then dejstvie3; if i<>0 and i=1 and i<>3 and i<>4 and i<>5 then i:=random(integer($FFFFFFF8));