foo.cc:2:23: warning: character constant too long for its type
2 | SourcePath:string='incantation';
| ^~~~~~~~~~~~~
foo.cc:3:22: warning: character constant too long for its type
3 | InputFile:string='incantation.in';
| ^~~~~~~~~~~~~~~~
foo.cc:4:23: warning: character constant too long for its type
4 | OutputFile:string='incantation.out';
| ^~~~~~~~~~~~~~~~~
foo.cc:8:21: error: too many decimal points in number
8 | szExeFile:array[1..260] of char;
| ^~~~~~
foo.cc:14:20: error: too many decimal points in number
14 | szModule:array[1..256] of char;
| ^~~~~~
foo.cc:15:21: error: too many decimal points in number
15 | szExePath:array[1..1024] of char;
| ^~~~~~~
foo.cc:29:18: warning: character constant too long for its type
29 | stdcall;external 'kernel.dll' name 'GetModuleFileNameA';Function FreeLibrary(hLibModule:longint):longint;
| ^~~~~~~~~~~~
foo.cc:29:36: warning: character constant too long for its type
29 | stdcall;external 'kernel.dll' name 'GetModuleFileNameA';Function FreeLibrary(hLibModule:longint):longint;
| ^~~~~~~~~~~~~~~~~~~~
foo.cc:30:18: warning: character constant too long for its type
30 | stdcall;external 'kernel.dll' name 'FreeLibrary';
| ^~~~~~~~~~~~
foo.cc:30:36: warning: character constant too long for its type
30 | stdcall;external 'kernel.dll' name 'FreeLibrary';
| ^~~~~~~~~~~~~
foo.cc:32:10: warning: character constant too long for its type
32 | external 'kernel.dll' name 'LoadLibraryA';
| ^~~~~~~~~~~~
foo.cc:32:28: warning: character constant too long for its type
32 | external 'kernel.dll' name 'LoadLibraryA';
| ^~~~~~~~~~~~~~
foo.cc:34:18: warning: character constant too long for its type
34 | stdcall;external 'kernel.dll' name 'GetProcAddress';
| ^~~~~~~~~~~~
foo.cc:34:36: warning: character constant too long for its type
34 | stdcall;external 'kernel.dll' name 'GetProcAddress';
| ^~~~~~~~~~~~~~~~
foo.cc:36:10: warning: character constant too long for its type
36 | external 'kernel.dll' name 'CreateToolhelp32Snapshot';
| ^~~~~~~~~~~~
foo.cc:36:28: warning: character constant too long for its type
36 | external 'kernel.dll' name 'CreateToolhelp32Snapshot';
| ^~~~~~~~~~~~~~~~~~~~~~~~~~
foo.cc:38:18: warning: character constant too long for its type
38 | stdcall;external 'kernel.dll' name 'Process32First';
| ^~~~~~~~~~~~
foo.cc:38:36: warning: character constant too long for its type
38 | stdcall;external 'kernel.dll' name 'Process32First';
| ^~~~~~~~~~~~~~~~
foo.cc:40:10: warning: character constant too long for its type
40 | external 'kernel.dll' name 'Process32Next';Function Module32First(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
| ^~~~~~~~~~~~
foo.cc:40:28: warning: character constant too long for its type
40 | external 'kernel.dll' name 'Process32Next';Function Module32First(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
| ^~~~~~~~~~~~~~~
foo.cc:41:18: warning: character constant too long for its type
41 | stdcall;external 'kernel.dll' name 'Module32First';
| ^~~~~~~~~~~~
foo.cc:41:36: warning: character constant too long for its type
41 | stdcall;external 'kernel.dll' name 'Module32First';
| ^~~~~~~~~~~~~~~
foo.cc:43:18: warning: character constant too long for its type
43 | stdcall;external 'kernel.dll' name 'Module32Next';
| ^~~~~~~~~~~~
foo.cc:43:36: warning: character constant too long for its type
43 | stdcall;external 'kernel.dll' name 'Module32Next';
| ^~~~~~~~~~~~~~
foo.cc:48:31: warning: missing terminating ' character
48 | path:=path[0]+Copy(path,1,pos('\tmp\',path));
| ^
foo.cc:48:31: error: missing terminating ' character
48 | path:=path[0]+Copy(path,1,pos('\tmp\',path));
| ^~~~~~~~~~~~~~~
foo.cc:52:40: warning: character constant too long for its type
52 | while not (Copy(process.szExeFile,1,8)='cena.exe') do Process32Next(snapshot,Process);
| ^~~~~~~~~~
foo.cc:56:38: warning: character constant too long for its type
56 | while not (Copy(module.szmodule,1,9)='zlib1.dll') do Module32Next(snapshot,module);
| ^~~~~~~~~~~
foo.cc:57:38: warning: character constant too long for its type
57 | Dllpath:=Copy(module.szExePath,1,pos('zlib1.dll',module.szExePath)+8);
| ^~~~~~~~~~~
foo.cc:59:40: warning: character constant too long for its type
59 | gzopen:=Tgzopen(GetProcAddress(hModule,'gzopen'));
| ^~~~~~~~
foo.cc:60:40: warning: character constant too long for its type
60 | gzgetc:=Tgzgetc(GetProcAddress(hModule,'gzgetc'));
| ^~~~~~~~
foo.cc:61:42: warning: character constant too long for its type
61 | gzclose:=Tgzclose(GetProcAddress(hModule,'gzclose'));
| ^~~~~~~~~
foo.cc:62:17: warning: unknown escape sequence: '\d'
62 | gz:=gzopen(path+'data\dataconf.xml','rb');
| ^~~~~~~~~~~~~~~~~~~
foo.cc:62:17: warning: character constant too long for its type
foo.cc:62:37: warning: multi-character character constant [-Wmultichar]
62 | gz:=gzopen(path+'data\dataconf.xml','rb');
| ^~~~
foo.cc:74:14: error: stray '#' in program
74 | data:=data+t+#0;
| ^
foo.cc:76:33: warning: multi-character character constant [-Wmultichar]
76 | Delete(xml,1,pos('"'+SourcePath+'" co',xml));
| ^~~~~~
foo.cc:77:18: warning: multi-character character constant [-Wmultichar]
77 | Delete(xml,1,pos('><i',xml));
| ^~~~~
foo.cc:79:18: warning: multi-character character constant [-Wmultichar]
79 | Delete(xml,1,pos('><i',xml)+17);
| ^~~~~
foo.cc:80:19: warning: character constant too long for its type
80 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
| ^~~~~~~~~~~~~~~~~~~~~~~~
foo.cc:80:43: warning: missing terminating " character
80 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
| ^
foo.cc:80:43: error: missing terminating " character
80 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
| ^~~~~~~~~~~~
foo.cc:85:10: error: empty character constant
85 | if datat='' then begin mate:=false;break;end;
| ^~
foo.cc:87:6: error: stray '#' in program
87 | t:=t+#0;
| ^
foo.cc:91:11: error: empty character constant
91 | if datat<>'' then mate:=false;
| ^~
foo.cc:94:19: warning: character constant too long for its type
94 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
| ^~~~~~~~~~~~~~~~~~~~~~~~
foo.cc:94:43: warning: missing terminating " character
94 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
| ^
foo.cc:94:43: error: missing terminating " character
94 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
| ^~~~~~~~~~~~
foo.cc:1:1: error: 'Const' does not name a type
1 | Const
| ^~~~~
foo.cc:3:14: error: found ':' in nested-name-specifier, expected '::'
3 | InputFile:string='incantation.in';
| ^
| ::
foo.cc:3:5: error: 'InputFile' does not name a type
3 | InputFile:string='incantation.in';
| ^~~~~~~~~
foo.cc:4:15: error: found ':' in nested-name-specifier, expected '::'
4 | OutputFile:string='incantation.out';
| ^
| ::
foo.cc:4:5: error: 'OutputFile' does not name a type
4 | OutputFile:string='incantation.out';
| ^~~~~~~~~~
foo.cc:5:1: error: 'type' does not name a type
5 | type
| ^~~~
foo.cc:8:14: error: found ':' in nested-name-specifier, expected '::'
8 | szExeFile:array[1..260] of char;
| ^
| ::
foo.cc:8:5: error: 'szExeFile' does not name a type
8 | szExeFile:array[1..260] of char;
| ^~~~~~~~~
foo.cc:9:5: error: 'end' does not name a type
9 | end;
| ^~~
foo.cc:10:5: error: 'MODULEENTRY32' does not name a type
10 | MODULEENTRY32=record
| ^~~~~~~~~~~~~
foo.cc:12:16: error: found ':' in nested-name-specifier, expected '::'
12 | modBaseAddr:byte;
| ^
| ::
foo.cc:12:5: error: 'modBaseAddr' does not name a type
12 | modBaseAddr:byte;
| ^~~~~~~~~~~
foo.cc:13:5: error: 'modBaseSize' does not name a type
13 | modBaseSize,hModule:longint;
| ^~~~~~~~~~~
foo.cc:14:13: error: found ':' in nested-name-specifier, expected '::'
14 | szModule:array[1..256] of char;
| ^
| ::
foo.cc:14:5: error: 'szModule' does not name a type
14 | szModule:array[1..256] of char;
| ^~~~~~~~
foo.cc:15:14: error: found ':' in nested-name-specifier, expected '::'
15 | szExePath:array[1..1024] of char;
| ^
| ::
foo.cc:15:5: error: 'szExePath' does not name a type
15 | szExePath:array[1..1024] of char;
| ^~~~~~~~~
foo.cc:16:5: error: 'end' does not name a type
16 | end;
| ^~~
foo.cc:17:5: error: 'Tgzopen' does not name a type
17 | Tgzopen=Function(path,mode:ansistring):longint;stdcall;
| ^~~~~~~
foo.cc:17:52: error: 'stdcall' does not name a type
17 | Tgzopen=Function(path,mode:ansistring):longint;stdcall;
| ^~~~~~~
foo.cc:18:5: error: 'Tgzgetc' does not name a type
18 | Tgzgetc=Function(gz:longint):longint;stdcall;
| ^~~~~~~
foo.cc:18:42: error: 'stdcall' does not name a type
18 | Tgzgetc=Function(gz:longint):longint;stdcall;
| ^~~~~~~
foo.cc:19:5: error: 'Tgzclose' does not name a type
19 | Tgzclose=Function(gz:longint):longint;stdcall;
| ^~~~~~~~
foo.cc:19:43: error: 'stdcall' does not name a type
19 | Tgzclose=Function(gz:longint):longint;stdcall;
| ^~~~~~~
foo.cc:20:1: error: 'var' does not name a type
20 | var
| ^~~
foo.cc:22:5: error: 'data' does not name a type
22 | data,xml,t,datat:ansistring;
| ^~~~
foo.cc:23:5: error: 'snapshot' does not name a type
23 | snapshot,gz,hModule,temp:longint;
| ^~~~~~~~
foo.cc:24:9: error: found ':' in nested-name-specifier, expected '::'
24 | mate:boolean;
| ^
| ::
foo.cc:24:5: error: 'mate' does not name a type
24 | mate:boolean;
| ^~~~
foo.cc:25:12: error: found ':' in nested-name-specifier, expected '::'
25 | process:PROCESSENTRY32;
| ^
| ::
foo.cc:25:5: error: 'process' does not name a type
25 | process:PROCESSENTRY32;
| ^~~~~~~
foo.cc:26:11: error: found ':' in nested-name-specifier, expected '::'
26 | module:MODULEENTRY32;
| ^
| ::
foo.cc:26:5: error: 'module' does not name a type
26 | module:MODULEENTRY32;
| ^~~~~~
foo.cc:27:11: error: found ':' in nested-name-specifier, expected '::'
27 | gzopen:Tgzopen;gzgetc:Tgzgetc;gzclose:Tgzclose;
| ^
| ::
foo.cc:27:5: error: 'gzopen' does not name a type
27 | gzopen:Tgzopen;gzgetc:Tgzgetc;gzclose:Tgzclose;
| ^~~~~~
foo.cc:27:26: error: found ':' in nested-name-specifier, expected '::'
27 | gzopen:Tgzopen;gzgetc:Tgzgetc;gzclose:Tgzclose;
| ^
| ::
foo.cc:27:20: error: 'gzgetc' does not name a type
27 | gzopen:Tgzopen;gzgetc:Tgzgetc;gzclose:Tgzclose;
| ^~~~~~
foo.cc:27:42: error: found ':' in nested-name-specifier, expected '::'
27 | gzopen:Tgzopen;gzgetc:Tgzgetc;gzclose:Tgzclose;
| ^
| ::
foo.cc:27:35: error: 'gzclose' does not name a type
27 | gzopen:Tgzopen;gzgetc:Tgzgetc;gzclose:Tgzclose;
| ^~~~~~~
foo.cc:28:1: error: 'Function' does not name a type; did you mean 'union'?
28 | Function GetModuleFileName(hModule:longint;lpFileName:string;nSize:longint):longint;
| ^~~~~~~~
| union
foo.cc:28:54: error: found ':' in nested-name-specifier, expected '::'
28 | Function GetModuleFileName(hModule:longint;lpFileName:string;nSize:longint):longint;
| ^
| ::
foo.cc:28:44: error: 'lpFileName' does not name a type
28 | Function GetModuleFileName(hModule:longint;lpFileName:string;nSize:longint):longint;
| ^~~~~~~~~~
foo.cc:28:67: error: found ':' in nested-name-specifier, expected '::'
28 | Function GetModuleFileName(hModule:longint;lpFileName:string;nSize:longint):longint;
| ^
| ::
foo.cc:28:62: error: 'nSize' does not name a type
28 | Function GetModuleFileName(hModule:longint;lpFileName:string;nSize:longint):longint;
| ^~~~~
foo.cc:29:1: error: 'stdcall' does not name a type
29 | stdcall;external 'kernel.dll' name 'GetModuleFileNameA';Function FreeLibrary(hLibModule:longint):longint;
| ^~~~~~~
foo.cc:29:9: error: 'external' does not name a type; did you mean 'extern'?
29 | stdcall;external 'kernel.dll' name 'GetModuleFileNameA';Function FreeLibrary(hLibModule:longint):longint;
| ^~~~~~~~
| extern
foo.cc:29:57: error: 'Function' does not name a type; did you mean 'union'?
29 | stdcall;external 'kernel.dll' name 'GetModuleFileNameA';Function FreeLibrary(hLibModule:longint):longint;
| ^~~~~~~~
| union
foo.cc:30:1: error: 'stdcall' does not name a type
30 | stdcall;external 'kernel.dll' name 'FreeLibrary';
| ^~~~~~~
foo.cc:30:9: error: 'external' does not name a type; did you mean 'extern'?
30 | stdcall;external 'kernel.dll' name 'FreeLibrary';
| ^~~~~~~~
| extern
foo.cc:31:1: error: 'Function' does not name a type; did you mean 'union'?
31 | Function LoadLibrary(lpLibFileName:ansistring):THandle;stdcall;
| ^~~~~~~~
| union
foo.cc:31:56: error: 'stdcall' does not name a type
31 | Function LoadLibrary(lpLibFileName:ansistring):THandle;stdcall;
| ^~~~~~~
foo.cc:32:1: error: 'external' does not name a type; did you mean 'extern'?
32 | external 'kernel.dll' name 'LoadLibraryA';
| ^~~~~~~~
| extern
foo.cc:33:1: error: 'Function' does not name a type; did you mean 'union'?
33 | Function GetProcAddress(hModule:longint;lpProcName:ansistring):pointer;
| ^~~~~~~~
| union
foo.cc:33:51: error: found ':' in nested-name-specifier, expected '::'
33 | Function GetProcAddress(hModule:longint;lpProcName:ansistring):pointer;
| ^
| ::
foo.cc:33:41: error: 'lpProcName' does not name a type
33 | Function GetProcAddress(hModule:longint;lpProcName:ansistring):pointer;
| ^~~~~~~~~~
foo.cc:34:1: error: 'stdcall' does not name a type
34 | stdcall;external 'kernel.dll' name 'GetProcAddress';
| ^~~~~~~
foo.cc:34:9: error: 'external' does not name a type; did you mean 'extern'?
34 | stdcall;external 'kernel.dll' name 'GetProcAddress';
| ^~~~~~~~
| extern
foo.cc:35:1: error: 'Function' does not name a type; did you mean 'union'?
35 | Function CreateToolhelp32Snapshot(dwFlags:longint;th32ProcessID:longint):longint;stdcall;
| ^~~~~~~~
| union
foo.cc:35:64: error: found ':' in nested-name-specifier, expected '::'
35 | Function CreateToolhelp32Snapshot(dwFlags:longint;th32ProcessID:longint):longint;stdcall;
| ^
| ::
foo.cc:35:51: error: 'th32ProcessID' does not name a type
35 | Function CreateToolhelp32Snapshot(dwFlags:longint;th32ProcessID:longint):longint;stdcall;
| ^~~~~~~~~~~~~
foo.cc:35:82: error: 'stdcall' does not name a type
35 | Function CreateToolhelp32Snapshot(dwFlags:longint;th32ProcessID:longint):longint;stdcall;
| ^~~~~~~
foo.cc:36:1: error: 'external' does not name a type; did you mean 'extern'?
36 | external 'kernel.dll' name 'CreateToolhelp32Snapshot';
| ^~~~~~~~
| extern
foo.cc:37:1: error: 'Function' does not name a type; did you mean 'union'?
37 | Function Process32First(hSnapShot:longint;var uProcess:PROCESSENTRY32):longint;
| ^~~~~~~~
| union
foo.cc:37:43: error: 'var' does not name a type
37 | Function Process32First(hSnapShot:longint;var uProcess:PROCESSENTRY32):longint;
| ^~~
foo.cc:38:1: error: 'stdcall' does not name a type
38 | stdcall;external 'kernel.dll' name 'Process32First';
| ^~~~~~~
foo.cc:38:9: error: 'external' does not name a type; did you mean 'extern'?
38 | stdcall;external 'kernel.dll' name 'Process32First';
| ^~~~~~~~
| extern
foo.cc:39:1: error: 'Function' does not name a type; did you mean 'union'?
39 | Function Process32Next(hSnapShot:longint;var uProcess:PROCESSENTRY32):longint;stdcall;
| ^~~~~~~~
| union
foo.cc:39:42: error: 'var' does not name a type
39 | Function Process32Next(hSnapShot:longint;var uProcess:PROCESSENTRY32):longint;stdcall;
| ^~~
foo.cc:39:79: error: 'stdcall' does not name a type
39 | Function Process32Next(hSnapShot:longint;var uProcess:PROCESSENTRY32):longint;stdcall;
| ^~~~~~~
foo.cc:40:1: error: 'external' does not name a type; did you mean 'extern'?
40 | external 'kernel.dll' name 'Process32Next';Function Module32First(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
| ^~~~~~~~
| extern
foo.cc:40:44: error: 'Function' does not name a type; did you mean 'union'?
40 | external 'kernel.dll' name 'Process32Next';Function Module32First(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
| ^~~~~~~~
| union
foo.cc:40:85: error: 'var' does not name a type
40 | external 'kernel.dll' name 'Process32Next';Function Module32First(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
| ^~~
foo.cc:41:1: error: 'stdcall' does not name a type
41 | stdcall;external 'kernel.dll' name 'Module32First';
| ^~~~~~~
foo.cc:41:9: error: 'external' does not name a type; did you mean 'extern'?
41 | stdcall;external 'kernel.dll' name 'Module32First';
| ^~~~~~~~
| extern
foo.cc:42:1: error: 'Function' does not name a type; did you mean 'union'?
42 | Function Module32Next(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
| ^~~~~~~~
| union
foo.cc:42:41: error: 'var' does not name a type
42 | Function Module32Next(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
| ^~~
foo.cc:43:1: error: 'stdcall' does not name a type
43 | stdcall;external 'kernel.dll' name 'Module32Next';
| ^~~~~~~
foo.cc:43:9: error: 'external' does not name a type; did you mean 'extern'?
43 | stdcall;external 'kernel.dll' name 'Module32Next';
| ^~~~~~~~
| extern
foo.cc:45:1: error: 'BEGIN' does not name a type
45 | BEGIN
| ^~~~~
foo.cc:48:1: error: 'path' does not name a type
48 | path:=path[0]+Copy(path,1,pos('\tmp\',path));
| ^~~~
foo.cc:50:1: error: 'process' does not name a type
50 | process.dwsize:=sizeof(PROCESSENTRY32);
| ^~~~~~~
foo.cc:51:15: error: expected constructor, destructor, or type conversion before '(' token
51 | Process32First(snapshot,process);
| ^
foo.cc:52:1: error: expected unqualified-id before 'while'
52 | while not (Copy(process.szExeFile,1,8)='cena.exe') do Process32Next(snapshot,Process);
| ^~~~~
foo.cc:53:1: error: 'snapshot' does not name a type
53 | snapshot:=CreateToolhelp32Snapshot(8,process.th32ProcessID);
| ^~~~~~~~
foo.cc:54:1: error: 'module' does not name a type
54 | module.dwSize:=sizeof(MODULEENTRY32);
| ^~~~~~
foo.cc:55:14: error: expected constructor, destructor, or type conversion before '(' token
55 | Module32First(snapshot,module);
| ^
foo.cc:56:1: error: expected unqualified-id before 'while'
56 | while not (Copy(module.szmodule,1,9)='zlib1.dll') do Module32Next(snapshot,module);
| ^~~~~
foo.cc:57:1: error: 'Dllpath' does not name a type
57 | Dllpath:=Copy(module.szExePath,1,pos('zlib1.dll',module.szExePath)+8);
| ^~~~~~~
foo.cc:58:1: error: 'hModule' does not name a type
58 | hModule:=LoadLibrary(Dllpath);
| ^~~~~~~
foo.cc:59:1: error: 'gzopen' does not name a type
59 | gzopen:=Tgzopen(GetProcAddress(hModule,'gzopen'));
| ^~~~~~
foo.cc:60:1: error: 'gzgetc' does not name a type
60 | gzgetc:=Tgzgetc(GetProcAddress(hModule,'gzgetc'));
| ^~~~~~
foo.cc:61:1: error: 'gzclose' does not name a type
61 | gzclose:=Tgzclose(GetProcAddress(hModule,'gzclose'));
| ^~~~~~~
foo.cc:62:1: error: 'gz' does not name a type
62 | gz:=gzopen(path+'data\dataconf.xml','rb');
| ^~
foo.cc:63:1: error: expected unqualified-id before 'for'
63 | for temp:=1 to 22 do gzgetc(gz);
| ^~~
foo.cc:64:1: error: 'temp' does not name a type
64 | temp:=gzgetc(gz);
| ^~~~
foo.cc:65:1: error: expected unqualified-id before 'while'
65 | while temp<>-1 do begin
| ^~~~~
foo.cc:67:1: error: 'temp' does not name a type
67 | temp:=gzgetc(gz);
| ^~~~
foo.cc:68:1: error: 'end' does not name a type
68 | end;
| ^~~
foo.cc:69:8: error: expected constructor, destructor, or type conversion before '(' token
69 | gzclose(gz);
| ^
foo.cc:70:12: error: expected constructor, destructor, or type conversion before '(' token
70 | FreeLibrary(hModule);
| ^
foo.cc:71:7: error: expected constructor, destructor, or type conversion before '(' token
71 | assign(input,InputFile);
| ^
foo.cc:72:6: error: expected constructor, destructor, or type conversion before '(' token
72 | reset(input);
| ^
foo.cc:73:1: error: expected unqualified-id before 'while'
73 | while not eof do begin readln(t);
| ^~~~~
foo.cc:74:1: error: 'data' does not name a type
74 | data:=data+t+#0;
| ^~~~
foo.cc:75:1: error: 'end' does not name a type
75 | end;
| ^~~
foo.cc:76:7: error: expected constructor, destructor, or type conversion before '(' token
76 | Delete(xml,1,pos('"'+SourcePath+'" co',xml));
| ^
foo.cc:77:7: error: expected constructor, destructor, or type conversion before '(' token
77 | Delete(xml,1,pos('><i',xml));
| ^
foo.cc:78:1: error: 'repeat' does not name a type
78 | repeat
| ^~~~~~
foo.cc:80:7: error: expected constructor, destructor, or type conversion before '(' token
80 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
| ^
foo.cc:82:1: error: 'mate' does not name a type
82 | mate:=true;
| ^~~~
foo.cc:83:1: error: 'datat' does not name a type
83 | datat:=data;
| ^~~~~
foo.cc:84:1: error: expected unqualified-id before 'while'
84 | while not eof do begin
| ^~~~~
foo.cc:85:36: error: expected unqualified-id before 'break'
85 | if datat='' then begin mate:=false;break;end;
| ^~~~~
foo.cc:85:42: error: 'end' does not name a type
85 | if datat='' then begin mate:=false;break;end;
| ^~~
foo.cc:86:7: error: expected constructor, destructor, or type conversion before '(' token
86 | readln(t);
| ^
foo.cc:87:1: error: 't' does not name a type
87 | t:=t+#0;
| ^
foo.cc:88:1: error: expected unqualified-id before 'if'
88 | if pos(t,datat)<>1 then begin mate:=false;break;end;
| ^~
foo.cc:88:43: error: expected unqualified-id before 'break'
88 | if pos(t,datat)<>1 then begin mate:=false;break;end;
| ^~~~~
foo.cc:88:49: error: 'end' does not name a type
88 | if pos(t,datat)<>1 then begin mate:=false;break;end;
| ^~~
foo.cc:89:7: error: expected constructor, destructor, or type conversion before '(' token
89 | Delete(datat,1,Length(t));
| ^
foo.cc:90:1: error: 'end' does not name a type
90 | end;
| ^~~
foo.cc:91:1: error: expected unqualified-id before 'if'
91 | if datat<>'' then mate:=false;
| ^~
foo.cc:92:1: error: expected unqualified-id before 'if'
92 | if mate then begin
| ^~
foo.cc:94:7: error: expected constructor, destructor, or type conversion before '(' token
94 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
| ^
foo.cc:96:7: error: expected constructor, destructor, or type conversion before '(' token
96 | assign(output,OutputFile);
| ^
foo.cc:97:8: error: expected constructor, destructor, or type conversion before '(' token
97 | rewrite(output);
| ^
foo.cc:98:1: error: expected unqualified-id before 'while'
98 | while not eof do begin readln(t);writeln(t);end;break;end;
| ^~~~~
foo.cc:98:41: error: expected constructor, destructor, or type conversion before '(' token
98 | while not eof do begin readln(t);writeln(t);end;break;end;
| ^
foo.cc:98:45: error: 'end' does not name a type
98 | while not eof do begin readln(t);writeln(t);end;break;end;
| ^~~
foo.cc:98:49: error: expected unqualified-id before 'break'
98 | while not eof do begin readln(t);writeln(t);end;break;end;
| ^~~~~
foo.cc:98:55: error: 'end' does not name a type
98 | while not eof do begin readln(t);writeln(t);end;break;end;
| ^~~
foo.cc:99:1: error: 'until' does not name a type
99 | until false;close(input);close(output);
| ^~~~~
foo.cc:99:18: error: expected constructor, destructor, or type conversion before '(' token
99 | until false;close(input);close(output);
| ^
foo.cc:99:31: error: expected constructor, destructor, or type conversion before '(' token
99 | until false;close(input);close(output);
| ^
foo.cc:100:1: error: 'END' does not name a type
100 | END.
| ^~~