Arrays em Visual FoxPro

[Markleber 0]

Boa noite Pessoal... 
Preciso de uma ajuda com duas questões: 

1a. Baseando-se na rotina abaixo: 
SELECT linresul 
DELETE ALL 
PACK 
APPEND FROM linresul.txt DELIMITED WITH CHARACTER "-" 
GO vsor-1 
SCATTER FIELDS linresul.d01,linresul.d02,linresul.d03,linresul.d04,linresul.d05,linresul.d06,linresul.d07,linresul.d08,linresul.d09,; 
linresul.d10,linresul.d11,linresul.d12,linresul.d13,linresul.d14,linresul.d15 TO arr01 

SELECT lifiltro 
DELETE ALL 
PACK 
APPEND FROM linfingr.txt DELIMITED WITH CHARACTER "-" 
replace ALL lifiltro.rep WITH 0 

SELECT libackup 
DELETE ALL 
PACK 

SELECT lifiltro 
SET ORDER TO lifiltro 
COUNT ALL TO vban 
GO TOP 
DO WHILE !EOF() 
WAIT WINDOW "AGUARDE !!! Separando LINHAS CONFIGURADAS do arquivo em GRUPOS e suas REPETÊNCIAS... Registro "+ALLTRIM(STR(vreg))+" de "+ALLTRIM(STR(vban)) NOWAIT 
SCATTER FIELDS lifiltro.d01,lifiltro.d02,lifiltro.d03,lifiltro.d04,lifiltro.d05,lifiltro.d06,lifiltro.d07,lifiltro.d08,lifiltro.d09,; 
lifiltro.d10,lifiltro.d11,lifiltro.d12,lifiltro.d13,lifiltro.d14,lifiltro.d15 TO arr02 

FOR i = 1 TO 15 
var1 = arr01 
FOR j = 1 TO 15 
var2 = arr02[j] 
IF var1 = var2 
var3 = var3+1 
ENDIF 
ENDFOR 
ENDFOR 

IF var3>0 
replace lifiltro.rep WITH var3 
ENDIF 
var1=0 
var2=0 
var3=0 

IF !EOF() 
SKIP 
vreg=vreg+1 
ELSE 
EXIT 
ENDIF 
ENDDO 

Reparem que tenho dois scatter's, ambos criando dois arrays, certo? 
Nessa rotina, o FOR conta entre os dois arrays, as quantidades iguais, porém, um por um elemento até completar 15 e isso num arquivo com mais de 1 milhão de registros, fica muito demorado. 
Pergunta: 
Existe como fazer a contagem dos elementos sem usar o FOR, contando o conjunto por exemplo: 
ARRAY01 terá os 15 elementos = 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 
ARRAY02 terá outros 15 elementos = 01 02 03 04 05 06 07 08 09 10 11 12 13 14 16 
Reparem que o FOR contaria os 15 elementos de cada array entre eles, encontrando 14 iguais entre os dois. 
Tem como contar os elementos dos arrays sem utilizar o FOR, pegaria todo o conjunto do array01 e acharia os iguais no array02? 
Com o FOR fica muito lento... 

2a. Baseando-se que: 
ARRAY03 terá os 15 elementos = 01 02 03 07 08 10 05 06 09 04 11 12 13 14 15 
Como fazer para que esse array fique ordenado como segue = 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15?