Реализовать тип динамичный объект "комплексное число"

type
    TComplex = object
    private
        re, im: Real;
    public
        Constructor Create; overload;
        Constructor Create(const a, b: Real); overload;
        Destructor Destroy;
        Procedure Print;
    end;
 
Constructor TComplex.Create; overload;
begin
    Write('re='); ReadLn(re);
    Write('im='); ReadLn(im);
end;
 
Constructor TComplex.Create(const a, b: Real); overload;
begin
    re := a;
    im := b;
end;
 
Destructor TComplex.Destroy;
begin
end;
 
Procedure TComplex.Print;
begin
    Write(re:0:3, ' ');
    if (im > 0)
    then
        Write('+ ', im:0:3, 'i')
    else
        Write('- ', -im:0:3, 'i');
    WriteLn;
end;
 
Operator + (const a, b: TComplex)z: TComplex;
begin
    z.re := a.re + b.re;
    z.im := a.im + b.im;
end;
 
Operator + (const a: Real; const b: TComplex)z: TComplex;
begin
    z.re := a + b.re;
    z.im := b.im;
end;
 
Operator + (const b: TComplex; const a: Real)z: TComplex;
begin
    z.re := a + b.re;
    z.im := b.im;
end;
 
Operator - (const a, b: TComplex)z: TComplex;
begin
    z.re := a.re - b.re;
    z.im := a.im - b.im;
end;
 
Operator - (const a: Real; const b: TComplex)z: TComplex;
begin
    z.re := a - b.re;
    z.im := -b.im;
end;
 
Operator - (const b: TComplex; const a: Real)z: TComplex;
begin
    z.re := -a + b.re;
    z.im := b.im;
end;
 
Operator * (const a, b: TComplex)z: TComplex;
begin
    z.re := a.re * b.re - a.im * b.im;
    z.im := a.re * b.im + a.im * b.re;
end;
 
Operator * (const a: Real; const b: TComplex)z: TComplex;
begin
    z.re := a * b.re;
    z.im := a * b.im;
end;
 
Operator * (const b: TComplex; const a: Real)z: TComplex;
begin
    z.re := a * b.re;
    z.im := a * b.im;
end;
 
Operator / (const a, b: TComplex)z: TComplex;
begin
    z.re := (a.re * b.re + a.im * b.im) / (Sqr(b.re) + Sqr(b.im));
    z.im := (b.re * a.im - b.im * a.re) / (Sqr(b.re) + Sqr(b.im));
end;
 
Operator / (const temp: Real; const b: TComplex)z: TComplex;
var
    a: TComplex;
begin
    a.Create(temp, 0);
    z.re := (a.re * b.re + a.im * b.im) / (Sqr(b.re) + Sqr(b.im));
    z.im := (b.re * a.im - b.im * a.re) / (Sqr(b.re) + Sqr(b.im));
end;
 
Operator / (const a: TComplex; const temp: Real)z: TComplex;
var
    b: TComplex;
begin
    b.Create(temp, 0);
    z.re := (a.re * b.re + a.im * b.im) / (Sqr(b.re) + Sqr(b.im));
    z.im := (b.re * a.im - b.im * a.re) / (Sqr(b.re) + Sqr(b.im));
end;
 
function Sqr(const a: TComplex): TComplex; overload;
begin
    Sqr := a * a;
end;
 
var
    x, y, z: TComplex;
begin
    x.Create(11, 2); y.Create(2, 3);
    x.Print; y.Print;
    z := x + y; z.Print;
    z := 5 + y; z.Print;
    z := y + 5; z.Print;
    z := x - y; z.Print;
    z := x - 5; z.Print;
    z := 5 - y; z.Print;
    z := 2 * y; z.Print;
    z := y * 2; z.Print;
    z := x * y; z.Print;
    z := x / y; z.Print;
    z := 2 / y; z.Print;
    z := y / 2; z.Print;
    z := Sqr(x); z.Print;
    x.Destroy; y.Destroy; z.Destroy;
end.