[kaizer131]

О, большое спасибо,всё работает
интересно, а почему всё заработало с z:= random(n)+1 ведь по-сути в значение переменной z может попасть элемент за границей массива. Или я ошибаюсь ?