var A,B: Matrix; begin A.SetIt(2,1,True,[1,2, 2,4]); // 2x2, not complex matrix B.UpperTriangle(A,True,True); // B becomes: // [1,2, // [0,4] end;