foo.cc:1:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:3:1: error: 'n' does not name a type
 n,i,ans:longint;
 ^
foo.cc:4:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:6:1: error: expected unqualified-id before 'while'
 while not(eof) do
 ^~~~~
foo.cc:9:1: error: 's' does not name a type
 s:=s+s1;
 ^
foo.cc:10:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:11:1: error: 's' does not name a type
 s:=s+s;min:='{';
 ^
foo.cc:11:8: error: 'min' does not name a type
 s:=s+s;min:='{';
        ^~~
foo.cc:12:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^~~
foo.cc:15:1: error: expected unqualified-id before 'if'
 if p<min then
 ^~
foo.cc:18:1: error: 'ans' does not name a type
 ans:=i;
 ^~~
foo.cc:19:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:20:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:21:8: error: expected constructor, destructor, or type conversion before '(' token
 writeln(ans-1);
        ^
foo.cc:22:1: error: 'end' does not name a type; did you mean 'enum'?
 end.
 ^~~
 enum

自豪的采用HydroJudge(https://github.com/hydro-dev/Hydro)进行评测。