Вообщем есть массив

A:array[0..5,0..5] of real;

При A[i,j]:=a[j,i] не работает
может кто нибудь что нибудь посоветует

Все работает, только циклы надо делать не

  for i := 0 to n do
    for j := 0 to n do begin ...

, а ограничиться

  for i := 0 to n do 
    for j := i to n do begin ...