var A,B: TMtxInt; begin CreateIt(A,B); A.SetIt(2,1,[1,2, 2,4]); // 2x2, integer matrix B.UpperTriangle(A,True,True); // B becomes: // [1,2, // [0,4] FreeIt(A,B); end;