for i:=1 to n do
 for j:=1 to n do
 begin
 StringGrid2.Cells[j,i]:=IntToStr(a[i,j]);
 end;