Ну во первых:
Вызов Randomize вынести из EL, она должна вызываться один раз при старте программы.
Во вторых:
Что произойдет, если в 9-ой строке ни один Gx(en) на буден равен gamma, то есть присваивание ниразу не выполнится? У Вас скорее всего такой случай.
|