foo.cc:6:4: error: empty character constant
 x:='';
    ^~
foo.cc:1:1: error: 'var' does not name a type; did you mean 'char'?
 var s,x:ansistring;
 ^~~
 char
foo.cc:2:1: error: 'p1' does not name a type
 p1,p2,p3,i,j,k:longint;
 ^~
foo.cc:3:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:5:5: error: expected constructor, destructor, or type conversion before '(' token
 read(s);
     ^
foo.cc:6:1: error: 'x' does not name a type
 x:='';
 ^
foo.cc:7:1: error: expected unqualified-id before 'for'
 for i:=1 to length(s) do
 ^~~
foo.cc:12:1: error: expected unqualified-id before 'if'
 if ord(s[i+1])-1>ord(s[i-1]) then begin
 ^~
foo.cc:18:1: error: 'end' does not name a type; did you mean 'enum'?
 end
 ^~~
 enum
foo.cc:23:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:24:1: error: expected unqualified-id before 'if'
 if p1=2 then
 ^~
foo.cc:29:1: error: 'end' does not name a type; did you mean 'enum'?
 end
 ^~~
 enum
foo.cc:34:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:35:1: error: expected unqualified-id before 'if'
 if p1=3 then
 ^~
foo.cc:39:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:40:1: error: 'end' does not name a type; did you mean 'enum'?
 end
 ^~~
 enum
foo.cc:42:1: error: 'end' does not name a type; did you mean 'enum'?
 end
 ^~~
 enum
foo.cc:44:6: error: expected constructor, destructor, or type conversion before '(' token
 write(x);
      ^
foo.cc:45:1: error: 'end' does not name a type; did you mean 'enum'?
 end.
 ^~~
 enum

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