Нужно создать класс целых чисел. реализуя арифметические операции, х - класса tint. Помогите пожалуйста
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type tint=class
data:integer;
procedure impdata(x:integer);
function outdata:integer;
procedure add(x:tint);
procedure sub(x:tint);
procedure mul(x:tint);
end;
procedure tint.impdata;
begin
data:=x;
end;
function tint.outdata;
begin
result:=data;
end;
procedure tint.add;
begin
data:=data+x.data;
end;
procedure tint.sub;
begin
data:=data-x.data;
end;
procedure tint.mul;
begin
data:=data*x.data;
end;
Var a,b:tint;
begin
{ TODO -oUser -cConsole Main : Insert code here }
a:=tint.Create;
a.impdata(6);
b:=tint.create;
b.impdata(3);
a.sub(b);
writeln('result sub=',a.outdata);
a.add(b);
writeln('result add=',a.outdata);
a.mul(b);
writeln('result mul=',a.outdata);
a.Free;b.Free;
readln;
end.