[icWasya]

>есно теперь инкремент for начинается с нуля

А что бы не думать, то

Код:

for x := Low(A) to High(A) do
for y := Low(A[i]) to High(A[i]) do
arr[x,y]:=