* remove double outfile identifier. Fixes issue #40414

utils/h2pas/scan.l

@@ -195,7 +195,6 @@ type
 
     var
        infile : string;
-       outfile : text;
        c : char;
        aktspace : string;
        block_type : tblocktype;
@@ -231,7 +230,7 @@ type
   implementation
 
     uses
-       h2poptions, h2pconst;
+       h2poptions, h2pconst, scanbase;
 
     const
        newline = #10;

utils/h2pas/scan.pas

@@ -198,7 +198,6 @@ type
 
     var
        infile : string;
-       outfile : text;
        c : char;
        aktspace : string;
        block_type : tblocktype;
@@ -234,7 +233,7 @@ type
   implementation
 
     uses
-       h2poptions, h2pconst;
+       h2poptions, h2pconst, scanbase;
 
     const
        newline = #10;