var a,b: Matrix; prod: double; begin a.SetIt(1,4,False,[1,2,3,4]); b.SetIt(1,4,False,[5,6,7,8]); prod := a.DotProd(b,0,0,4); // = 1*5 + 2*6 + * 3*7 + 4*8 end;