FoxPro/Visual FoxPro - ctacte para mauricio

RELE valimp
SELE ctacte
STORE 0 TO totrec, reg
PUBLIC valimp(10)
SELECT ctacte
SCAN for codcliente = codclientegen AND totrec <= entrega
IF BETWEEN(fecha,fechae,fechas)
totrec = totrec + debe
reg = reg + 1
valimp(reg) = compro && Guardo en matriz los comprobantes
ENDIF
ENDSCAN
asi anda perfecto mauricio desde ya gracias por tu ayuda, lo q sucede es q el vector esta limitado a 10 reg y yo no se cuantos registros de ctacte pude tener un cliente puden ser 20 0 5 o 50 imaginate q la deuda acumulada en un mes puede ser variada.

si me podes ayudar yo necesito q analizando la entrega, me diga cuantos registros tengo q crear y guardar en el vector para no tener un vector fijo. Desde ya gracias y saludos

De acuerdo Marina, aca esta el codigo ya probado:
SELE ctacte
STORE 0 TO totrec, reg, s
SCAN for codcliente = codclientegen
IF BETWEEN(fecha,fechae,fechas)
totrec = totrec + debe
s = s + 1
IF totrec > entrega
EXIT
ENDIF
ENDIF
ENDSCAN
PUBLIC valimp(s)
* Inicia el proceso de guardar en vector los comprobantes !!!!!!!
GO TOP
SCAN FOR codcliente = codclientegen
IF BETWEEN(fecha,fechae,fechas) AND reg < s
totrec = totrec + debe
reg = reg + 1
valimp(reg) = compro
ELSE
EXIT
ENDIF
ENDSCAN