procedure ProcInsideIncFile; begin Writeln('Testing inc file'); end;