{$mode objfpc}
uses crt;
const n : word = 3;
type
TType = single;
PVector = ^TVector;
TVector = array [1..1] of TType;
PMatrix = ^TMatrix;
TMatrix = array [1..1] of PVector;
operator + (const a,b : PVector) v : PVector;
var
i : word;
begin
for i := 1 to n do v^[i] := a^[i] + b^[i];
end;
//....
begin
end.
impossible operator overload