Для того, чтобы получить случайное целое число в заданном диапазоне, достаточно использовать нижеприведённую инструкцию, где ВерхняяГраница это максимальное число нужного диапазона, а НижняяГраница это минимальное число этого же диапазона.
iRnd = Int((ВерхняяГраница - НижняяГраница + 1) * Rnd + НижняяГраница)