у меня проблемы с массивами

можете сказать что я ненормальный, но у меня такая проблема... всё уже перепроверено на 100 раз, и не одним мной,
у меня 2 массива. 2-х и 3-х мерные, integer.
когда я в первом массиве меняю в цыкле
for i:=0 to 40 do
for j:=0 to 40 do
mas[i, j]:=1;
то в втором массиве тоже значения меняюца, в mas2[0, i, j].
мне посоветовали сделать второй 3-х мерный массив в string. там почемуто получается, что из первых тридцати елементов нельзя считывать (mas2[0, 0, 0-30]) - сразу ошибка доступа, типа прога лезет не туда куда положено. записывать туда можно -
for g:=0 to 40 do
for i:=0 to 40 do
for j:=0 to 40 do
mas2[g, i, j]:=1; а вот считать первые 30 элементов- нет!