[Pyro]

тоже нечем проверить, без дельфи видно что дин.массив не сохраняет размерности

Код:

   for I := 0 to High(TAr) do
    for J := 0 to High(TAr) do

а это значит, что массив квадратный