/in/foo.cc:2:23: warning: character constant too long for its type
     SourcePath:string='incantation';
                       ^~~~~~~~~~~~~
/in/foo.cc:3:22: warning: character constant too long for its type
     InputFile:string='incantation.in';
                      ^~~~~~~~~~~~~~~~
/in/foo.cc:4:23: warning: character constant too long for its type
     OutputFile:string='incantation.out';
                       ^~~~~~~~~~~~~~~~~
/in/foo.cc:8:21: error: too many decimal points in number
     szExeFile:array[1..260] of char;
                     ^~~~~~
/in/foo.cc:14:20: error: too many decimal points in number
     szModule:array[1..256] of char;
                    ^~~~~~
/in/foo.cc:15:21: error: too many decimal points in number
     szExePath:array[1..1024] of char;
                     ^~~~~~~
/in/foo.cc:29:18: warning: character constant too long for its type
 stdcall;external 'kernel.dll' name 'GetModuleFileNameA';Function FreeLibrary(hLibModule:longint):longint;
                  ^~~~~~~~~~~~
/in/foo.cc:29:36: warning: character constant too long for its type
 stdcall;external 'kernel.dll' name 'GetModuleFileNameA';Function FreeLibrary(hLibModule:longint):longint;
                                    ^~~~~~~~~~~~~~~~~~~~
/in/foo.cc:30:18: warning: character constant too long for its type
 stdcall;external 'kernel.dll' name 'FreeLibrary';
                  ^~~~~~~~~~~~
/in/foo.cc:30:36: warning: character constant too long for its type
 stdcall;external 'kernel.dll' name 'FreeLibrary';
                                    ^~~~~~~~~~~~~
/in/foo.cc:32:10: warning: character constant too long for its type
 external 'kernel.dll' name 'LoadLibraryA';
          ^~~~~~~~~~~~
/in/foo.cc:32:28: warning: character constant too long for its type
 external 'kernel.dll' name 'LoadLibraryA';
                            ^~~~~~~~~~~~~~
/in/foo.cc:34:18: warning: character constant too long for its type
 stdcall;external 'kernel.dll' name 'GetProcAddress';
                  ^~~~~~~~~~~~
/in/foo.cc:34:36: warning: character constant too long for its type
 stdcall;external 'kernel.dll' name 'GetProcAddress';
                                    ^~~~~~~~~~~~~~~~
/in/foo.cc:36:10: warning: character constant too long for its type
 external 'kernel.dll' name 'CreateToolhelp32Snapshot';
          ^~~~~~~~~~~~
/in/foo.cc:36:28: warning: character constant too long for its type
 external 'kernel.dll' name 'CreateToolhelp32Snapshot';
                            ^~~~~~~~~~~~~~~~~~~~~~~~~~
/in/foo.cc:38:18: warning: character constant too long for its type
 stdcall;external 'kernel.dll' name 'Process32First';
                  ^~~~~~~~~~~~
/in/foo.cc:38:36: warning: character constant too long for its type
 stdcall;external 'kernel.dll' name 'Process32First';
                                    ^~~~~~~~~~~~~~~~
/in/foo.cc:40:10: warning: character constant too long for its type
 external 'kernel.dll' name 'Process32Next';Function Module32First(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
          ^~~~~~~~~~~~
/in/foo.cc:40:28: warning: character constant too long for its type
 external 'kernel.dll' name 'Process32Next';Function Module32First(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
                            ^~~~~~~~~~~~~~~
/in/foo.cc:41:18: warning: character constant too long for its type
 stdcall;external 'kernel.dll' name 'Module32First';
                  ^~~~~~~~~~~~
/in/foo.cc:41:36: warning: character constant too long for its type
 stdcall;external 'kernel.dll' name 'Module32First';
                                    ^~~~~~~~~~~~~~~
/in/foo.cc:43:18: warning: character constant too long for its type
 stdcall;external 'kernel.dll' name 'Module32Next';
                  ^~~~~~~~~~~~
/in/foo.cc:43:36: warning: character constant too long for its type
 stdcall;external 'kernel.dll' name 'Module32Next';
                                    ^~~~~~~~~~~~~~
/in/foo.cc:48:31: warning: missing terminating ' character
 path:=path[0]+Copy(path,1,pos('\tmp\',path));
                               ^
/in/foo.cc:48:31: error: missing terminating ' character
 path:=path[0]+Copy(path,1,pos('\tmp\',path));
                               ^~~~~~~~~~~~~~~
/in/foo.cc:52:40: warning: character constant too long for its type
 while not (Copy(process.szExeFile,1,8)='cena.exe') do  Process32Next(snapshot,Process);
                                        ^~~~~~~~~~
/in/foo.cc:56:38: warning: character constant too long for its type
 while not (Copy(module.szmodule,1,9)='zlib1.dll') do Module32Next(snapshot,module);
                                      ^~~~~~~~~~~
/in/foo.cc:57:38: warning: character constant too long for its type
 Dllpath:=Copy(module.szExePath,1,pos('zlib1.dll',module.szExePath)+8);
                                      ^~~~~~~~~~~
/in/foo.cc:59:40: warning: character constant too long for its type
 gzopen:=Tgzopen(GetProcAddress(hModule,'gzopen'));
                                        ^~~~~~~~
/in/foo.cc:60:40: warning: character constant too long for its type
 gzgetc:=Tgzgetc(GetProcAddress(hModule,'gzgetc'));
                                        ^~~~~~~~
/in/foo.cc:61:42: warning: character constant too long for its type
 gzclose:=Tgzclose(GetProcAddress(hModule,'gzclose'));
                                          ^~~~~~~~~
/in/foo.cc:62:17: warning: unknown escape sequence: '\d'
 gz:=gzopen(path+'data\dataconf.xml','rb');
                 ^~~~~~~~~~~~~~~~~~~
/in/foo.cc:62:17: warning: character constant too long for its type
/in/foo.cc:62:37: warning: multi-character character constant [-Wmultichar]
 gz:=gzopen(path+'data\dataconf.xml','rb');
                                     ^~~~
/in/foo.cc:74:14: error: stray '#' in program
 data:=data+t+#0;
              ^
/in/foo.cc:76:33: warning: multi-character character constant [-Wmultichar]
 Delete(xml,1,pos('"'+SourcePath+'" co',xml));
                                 ^~~~~~
/in/foo.cc:77:18: warning: multi-character character constant [-Wmultichar]
 Delete(xml,1,pos('><i',xml));
                  ^~~~~
/in/foo.cc:79:18: warning: multi-character character constant [-Wmultichar]
 Delete(xml,1,pos('><i',xml)+17);
                  ^~~~~
/in/foo.cc:80:19: warning: character constant too long for its type
 assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
                   ^~~~~~~~~~~~~~~~~~~~~~~~
/in/foo.cc:80:43: warning: missing terminating " character
 assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
                                           ^
/in/foo.cc:80:43: error: missing terminating " character
 assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
                                           ^~~~~~~~~~~~
/in/foo.cc:85:10: error: empty character constant
 if datat='' then begin mate:=false;break;end;
          ^~
/in/foo.cc:87:6: error: stray '#' in program
 t:=t+#0;
      ^
/in/foo.cc:91:11: error: empty character constant
 if datat<>'' then mate:=false;
           ^~
/in/foo.cc:94:19: warning: character constant too long for its type
 assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
                   ^~~~~~~~~~~~~~~~~~~~~~~~
/in/foo.cc:94:43: warning: missing terminating " character
 assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
                                           ^
/in/foo.cc:94:43: error: missing terminating " character
 assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
                                           ^~~~~~~~~~~~
/in/foo.cc:1:1: error: 'Const' does not name a type
 Const
 ^~~~~
/in/foo.cc:3:14: error: found ':' in nested-name-specifier, expected '::'
     InputFile:string='incantation.in';
              ^
/in/foo.cc:3:5: error: 'InputFile' does not name a type
     InputFile:string='incantation.in';
     ^~~~~~~~~
/in/foo.cc:4:15: error: found ':' in nested-name-specifier, expected '::'
     OutputFile:string='incantation.out';
               ^
/in/foo.cc:4:5: error: 'OutputFile' does not name a type
     OutputFile:string='incantation.out';
     ^~~~~~~~~~
/in/foo.cc:5:1: error: 'type' does not name a type
 type
 ^~~~
/in/foo.cc:8:14: error: found ':' in nested-name-sp