Так не получается
{$mode objfpc}
type
my=real;
Operator div (Const m1:my; m2:real) R: real;
Begin
r:=m1*m2*0;
End;
{$mode objfpc}
type
my=real;
Operator div (Const m1:my; m2:real) R: real;
Begin
r:=m1*m2*0;
End;
operator + (const mx1, mx2: TMatrix) r: TMatrix;