Комплексные числа: Преобразовать record в class

type complex=record
             re,im:real;
             end;
procedure Vyvod(var f:complex);
begin
if f.im<0 then writeln(f.re:9:5,' -',-f.im:0:5,'i')
else writeln(f.re:9:5,' +',f.im:0:5,'i');
end;
procedure Summa(f,g:complex;var z:complex);
begin
z.re:=f.re+g.re;
z.im:=f.im+g.im;
end;
var  a,b,c:complex;
begin
writeln('Vvedite deist. i mnim. chasti a:');
readln(a.re,a.im);
writeln;
writeln('Vvedite deist. i mnim. chasti b:');
readln(b.re,b.im);
writeln;
Summa(a,b,c);
write('A+B=');
Vyvod(c);
readln;
end.

function toStringF(D : Real) : String;
begin
  if D < 0 then
    Result := '-'
  else
    Result := '';
  D := Abs(D);
  Result += Int(D).ToString;
  D := Frac(D);
  if D > 0 then
    begin
      Result += '.';
      D *= 10;
      Result += Int(D).ToString;
      D := Frac(D);
      var K := 0;
      while (D > 0) and (K < 10) do
        begin
          D *= 10;
          Result += Int(D).ToString;
          D := Frac(D);
          K += 1;
        end;
    end;
end;
 
type
  tComplex = class
    re, im : Real;
    
    constructor Create;
    begin
      re := 0;
      im := 0;
    end;
 
    constructor Create(msg : String);
    begin
      WriteLn(msg);
      re := ReadReal('действительная часть =');
      im := ReadReal('        мнимая часть =');
    end;
    
    function toString : String;
    begin
      Result := toStringF(re) + (im < 0 ? '' : '+') + toStringF(im) + 'i';
    end;
    
    function Add(C : tComplex) : tComplex;
    begin
      Result := tComplex.Create;
      Result.re := re + C.re;
      Result.im := im + C.im;
    end;
  end;
  
var
  a, b, c, s : tComplex;
begin
  a := tComplex.Create('Введите комплексное число a:');
  b := tComplex.Create('Введите комплексное число b:');
  c := tComplex.Create('Введите комплексное число c:');
  WriteLn('Сумма: ', a.Add(b).Add(c).toString);
end.

type
  complex = class
    re, im: real;
    class function operator +(a, b: complex): complex;
    begin
      result := complex.Create(a.re + b.re, a.im + b.im);
    end;
    
    constructor(re, im: real);
    begin
      self.re := re; self.im := im;
    end;
    
    constructor(s: string);
    begin
      writeln('Введите ', s);
      write('re = '); readln(re);
      write('im = '); readln(im);
    end;
    
    function ToString: string; reintroduce;
    var
      sn: array[boolean] of char := ('+', '-');
    begin
      result := re.ToString + sn[im < 0] + im.ToString + '*i';
    end;
  
  end;
 
var
  a, b, c: complex;
 
begin
  a := complex.Create('a');
  b := complex.Create('b');
  c := complex.Create('c');
  var s := a + b + c;
  write('A+B+C=', s.ToString);
  readln;
end.