Если array1-3 одномерные: ar2[0]:=Copy(array1,индекс_начала,индекс_конца)
------------ Дoбавленo в 14.54:

Я сперва думал, что от того, что кое-кто объявляет массив размерностью по каждому измерению 4, а индексы указывает с 0 по 4 , то есть 5 элементов вместо 4-х.