var A: TMtxInt; D: TVecInt; begin CreateIt(A); CreateIt(D); try A.SetIt(2,2,[1,1, 1,2]); D.SetIt([3,4]); A.Diag(D,0); // A becomes: // [3,1] // [1,4] finally FreeIt(D); FreeIt(A); end; end;