Перегрузка операторов - Pascal

type
  TComplex = class
    private
      x,y: real; //действительная и мнимая части
    public
      constructor Create;
      function Modul(): real;
      function Argument(): real;
      procedure Printer();
  end;
constructor TComplex.Create;
  begin
    x := 0; y := 0;
    inherited Create;
  end;
function TComplex.Modul(): real;
  begin
    modul := sqrt(x*x + y*y);
  end;
function TComplex.Argument(): real;
  begin
    argument := arctan(y/x) * 180/pi;
  end;
procedure TComplex.Printer();
  begin
    if y >= 0 then
      writeln(x:3:1,'+',y:3:1,'i')
    else
      writeln(x:3:1,y:3:1,'i');
  end;
 
operator +(const a,b: TComplex)r: TComplex;
  begin
    r := TComplex.Create;
    r.x := a.x + b.x;
    r.y := a.y + b.y;
  end;
operator -(const a,b: TComplex)r: TComplex;
  begin
    r := TComplex.Create;
    r.x := a.x - b.x;
    r.y := a.y - b.y;
  end;
 
var
  c1, c2, c3, c4: TComplex;
  a, b: real;
begin
  c1 := TComplex.Create;
  c2 := TComplex.Create;
  c3 := TComplex.Create;
  c4 := TComplex.Create;
  write('real and imag of the FIRST number: ');
  readln(c1.x, c1.y);
  write('real and imag of the SECOND number: ');
  readln(c2.x, c2.y);
  c3 := c1 + c2;
  c4 := c1 - c2;
  c3.printer();
  c4.printer();
readln;
end.