var A: TMtx; D: TVec; begin CreateIt(A); CreateIt(D); try A.SetIt(2,2,True,[1,1, 2,1, 1,2, 2,2]); D.SetIt(2, True,[2,2, 1,1]); A.Diag(D,0); // A becomes: // [2,2, 2,1] // [1,2, 1,1] finally FreeIt(D); FreeIt(A); end; end;