Класс целых чисел Опции

[forMator]

привет всем! Не могу понять почему программа так работает. вычитание и умножение считает правильно. А сложение нет...
Нужно создать класс целых чисел. реализуя арифметические операции, х - класса 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.