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