* remove unused variable, reported by lagwagging on on forum.

utils/h2pas/scan.l

@@ -254,7 +254,6 @@ type
 
     procedure writetree(p: presobject);
     var
-     i : integer;
      localp: presobject;
      localp1: presobject;
      currentlevel : integer;

utils/h2pas/scan.pas

@@ -257,7 +257,6 @@ type
 
     procedure writetree(p: presobject);
     var
-     i : integer;
      localp: presobject;
      localp1: presobject;
      currentlevel : integer;