[Fenia]

заинтересовался классами. в делфи совсем новичок. многого не знаю. попытался создать элементарный класс, почему-то выдает ошибку. скажите в чем проблема-то?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

TMath = class(TObject)   firsta,secondb:integer;   private   public   procedure seta(a:integer);   procedure setb(b:integer);   function getab(a,b:integer):integer;   function getba(a,b:integer):integer;   function getaabb(a,b:integer):integer;   end;   var   Form1: TForm1;   Mt: TMath;   implementation   {$R *.dfm}   procedure TMath.seta(a:integer); begin firsta:=a; end;   procedure TMath.setb(b:integer); begin secondb:=b; end;   function TMath.getab(a,b:integer):integer; begin result:=a+b; end;   function TMath.getba(a,b:integer):integer; begin result:=abs(a-b); end;   function TMath.getaabb(a,b:integer):integer; begin result:=a*b; end;   begin Mt.seta(10); Mt.setb(30); writeln(Mt.getab(Mt.firsta,Mt.secondb)); writeln(Mt.getba(Mt.firsta,Mt.secondb)); writeln(Mt.getaabb(Mt.firsta,Mt.secondb)); end.