Оффтоп: пора уже тег [СODE] научиться пользовать
И так правильно работает
транспонирование, лишь желательно перевести глобальные переменные под циклы в локальные, да и матрицу нужно задавать динамически, примерно так
Код:
arr: array of array of integer;
...
SetLength(arr, n, n);
есно теперь инкремент
for начинается с нуля