сделать рандом N числа и кейс по вызову определенной процедуры в зависимости от кейса.
к примеру:
randomize;
K:=random(3);
case K of
0: first();
1: second();
2: third();
3: zero();
end;
однако думаю интереснее было бы рандом сделать зависимым от действий пользователя для увеличения ощущения "правдивости"
p.s. о, сорь, продублировал пост предыдущего комментатора)
|