Модули позьзователя

[Sonne_asja]

ему мой тип не нравится((( ошибку выдает

unit my_unit;
interface
uses crt;

type Tcomplex=record
 d:real;
 m:real;
end;
function SumComplex(a,b:Tcomplex):Tcomplex;
function DifComplex(a,b:Tcomplex):Tcomplex;
function MultComplex(a,b:Tcomplex):Tcomplex;


implementation
function SumComplex(a,b:Tcomplex):Tcomplex;
var c:Tcomplex;
begin
c.d:=a.d+b.d;
c.m:=a.m+b.m;
SumComplex:=c;
end;

function DifComplex(a,b:Tcomplex):Tcomplex;
var c:Tcomplex;
begin
c.d:=a.d-b.d;
c.m:=a.m-b.m;
DifComplex:=c;
end;

function MultComplex(a,b:Tcomplex):Tcomplex;
var c:Tcomplex;
begin
c.d:=a.d*b.d-a.m*b.m;
c.m:=a.m*b.d+b.m*a.d;
MultComplex:=c;
end;

так?............................... .......

[Son Of Pain]

Можно и так. Какая ошибка-то, и в какой строке?

[Sonne_asja]

вот в этой "function SumComplex(a,b:Tcomplex):Tcomplex;"
34.invalid function result type

моему преподователю такое решение не понравилось((( сказал переделывай((( посмотрите кто то еще пожалуйста