A Important Hint :
look at several important parts of my program

      if (c='(') then
      begin
        if t1<1 then
        begin
          inc(t);
          bj:=1;
        end
        else bj:=0;
      end
...
...
...
      else if (c='*')and(e='(') then {here e means the just pre char}
      begin
        if t1=0 then  {this line ! }
        begin
          c:=' ';
          inc(t1);
          if bj=1 then dec(t);
        end;
      end

I hope that this will help you .