Falto mencionar que el programa puede tirar el siguiente error ya que no se menciono que toca activar dicha caracteristica aca la solucion: Re: : Subindice (0) fuera de rango (1..) azar ejecución interrumpida. A veces ese sale porque no está configurada la opción "Utilizar índices y arreglos en cadenas en base 0". Configurar->Opciones del Lenguaje (perfiles)->Personalizar->Utilizar índices y arreglos en cadenas en base 0.
Una disculpa por no responder antes. Creo que probablemente lo que esta mal es tu condición, en ocaciones ponemos hasta N por N-1, revisa de nuevo. Saludos.