[Crayzi]

Есть вариант сделать так как ты хочеш, для этого надо:

Type Massives
   Field MassName$;Здесь будет хранится имя массива.
   Field Mass%[2];Здесь задаеш собственно свой массив.
End Type
;Создадим первый массив с именем "Massive001".
Ms.Massiveso=New Massives
Ms\MassName$="Massive001"
Ms\Mass[0]=1
Ms\Mass[1]=55
Ms\Mass[2]=33
;Создадим второй массив с именем "Massive002".
Ms.Massiveso=New Massives
Ms\MassName$="Massive002"
Ms\Mass[0]=11
Ms\Mass[1]=23
Ms\Mass[2]=42
;тут остальной твой код... цикл и т. д.
;..................................
;..................................
;..................................
;Вот собственно функция работы с массивами:
Function RabMass(MassName1$,MassName2$,Aktion%=0,ParamMass1%=0,ParamMass2%=0)
   For o.Massives = Each Massives
      If o\MassName$=MassName1$
         For t.Massives = Each Massives
            If t\MassName$=MassName2$
               Select Aktion%
                  Case 0
;.....................................
                  Case 1
;......................................
               End Select
            EndIf
         Next
      EndIf
   Next
End function

Все написано в браузере, так что могут быть опечатки))) Но общий смысл я изложил.