S(D[k][l]<>G[k][l]) and (D[k][l]<>G[l][k]) and (D[k][l]<>G[n-l+1][n-k+1]) then beginG[p][r]:=E[r][p];8xxKd0ƒ  T TxxKf0ƒ   xxKb0ƒ