ООП программа

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
type
  SimFrac=class
  
  private
    SF:(integer,integer);
    function GetNum:=SF[0];
    function GetDenom:=SF[1];
    function GCD(p:SimFrac):integer;
      begin
        (var a,var b):=p.SF;
        while b<>0 do begin a:=a mod b; Swap(a,b) end;
        Result:=a
      end;
    function FracLim:SimFrac;
      begin
        var k:=GCD(Self);
        Result:=new SimFrac(Self.Numerator div k,Self.Denominator div k)
      end;
  public
    constructor (p:integer:=0; q:integer:=1);
      begin
        SF:=(p,q);
      end;
    property Numerator: integer read GetNum;
    property Denominator: integer read GetDenom;
    procedure Print;
      begin
        Write(SF[0]+'/'+SF[1])
      end;
    class function operator + (a,b:SimFrac):SimFrac;
      begin
        var t:=new SimFrac(a.SF[0]*b.SF[1]+b.SF[0]*a.SF[1],a.SF[1]*b.SF[1]);
        Result:=t.FracLim
      end;
end;
 
begin
  var a:=new SimFrac(29,30);
  var b:=new SimFrac(44,45);
  a.Print; Write('+'); b.Print; Write('=');
  (a+b).Print;
end.