ClassTMtxVec
var a: TVec; c: TSample; begin CreateIt(a); a.SetIt(True,[1,-2,3,4]); a.Abs; FreeIt(a); end;