Error con arreglo

Hola hector, sera que puedes darme una mano cion esto: me da este error al pasearme por una lista "El subíndice está fuera del intervalo definido" y me da el error en un arreglo este es el código:
La que esta en negrita es donde me da el error.
parameters m.con1,m.con2
private posi,x
dimension aconsulta (255)
for posi = 1 to 255
aconsulta (posi) = ''
endfor
posi = 0
m.con1 = alltrim(m.con1)
do while !empty(m.con1)
x=at('%',m.con1)
posi = posi + 1
aconsulta(posi) = substr(m.con1,1,x-1)
if (x=len(m.con1))
m.con1 = ''
else&&(x=len(m.con1))
m.con1 = substr(m.con1,x+1,len(m.con1))
endif&&(x=len(m.con1))
enddo