hola diego,
observa la línea 13. en ese procedimiento las variables numero y factor son constantes. así que en esa iteración estás asignando siempre el mismo valor a proc. dudo que fuera eso lo que deseabas, así que te sugiero que revises esa línea.
si sigues con problemas, intenta descubrir si las variables que te interesan van tomando los valores que crees que deben tomar, colocando WRITEs en lugares del código adecuados (luego de asignaciones claves, al entrar a las iteraciones o subprogramas, etc); una vez detectado el problema y corregido, debes eliminar esos WRITEs temporarios que usaste para debugear (o como se diga en español).
saludos
luis
saludos
luis