foo.cc:1:30: error: too many decimal points in number
 var pre,res,vis,ok,len:Array[0..101]of longint;
                              ^~~~~~
foo.cc:3:15: error: too many decimal points in number
 lin,ans:Array[0..101]of longint;
               ^~~~~~
foo.cc:31:7: warning: multi-character character constant [-Wmultichar]
 write('FD ');
       ^~~~~
foo.cc:35:7: warning: character constant too long for its type
 write(' is redundant using FDs:');
       ^~~~~~~~~~~~~~~~~~~~~~~~~~
foo.cc:1:1: error: 'var' does not name a type; did you mean 'char'?
 var pre,res,vis,ok,len:Array[0..101]of longint;
 ^~~
 char
foo.cc:3:1: error: 'lin' does not name a type
 lin,ans:Array[0..101]of longint;
 ^~~
foo.cc:5:1: error: 'i' does not name a type
 i,j,k,m,n,t,l,r,best:longint;
 ^
foo.cc:7:5: error: found ':' in nested-name-specifier, expected '::'
 flag:Boolean;
     ^
foo.cc:7:1: error: 'flag' does not name a type; did you mean 'float'?
 flag:Boolean;
 ^~~~
 float
foo.cc:9:1: error: 's' does not name a type
 s,st:String;
 ^
foo.cc:11:1: error: 'function' does not name a type; did you mean 'union'?
 function bush(s:String):longint; //压缩成二进制处理
 ^~~~~~~~
 union
foo.cc:13:1: error: 'var' does not name a type; did you mean 'char'?
 var i,j:longint;
 ^~~
 char
foo.cc:15:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:19:1: error: expected unqualified-id before 'for'
 for i:=1 to length(s) do
 ^~~
foo.cc:23:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:25:1: error: 'procedure' does not name a type
 procedure print(x,y:longint); //输出
 ^~~~~~~~~
foo.cc:27:1: error: 'var' does not name a type; did you mean 'char'?
 var i,j:longint;
 ^~~
 char
foo.cc:29:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:33:6: error: expected constructor, destructor, or type conversion before '(' token
 write(x);
      ^
foo.cc:35:6: error: expected constructor, destructor, or type conversion before '(' token
 write(' is redundant using FDs:');
      ^
foo.cc:37:1: error: expected unqualified-id before 'for'
 for i:=1 to y do write(' ',ans[i]);
 ^~~
foo.cc:39:1: error: 'writeln' does not name a type
 writeln;
 ^~~~~~~
foo.cc:41:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:43:1: error: 'function' does not name a type; did you mean 'union'?
 function dfs(dep,now,goa:longint):Boolean; //DFS搜索，每次都从第一
 ^~~~~~~~
 union
foo.cc:45:1: error: 'var' does not name a type; did you mean 'char'?
 var i,j,k:longint; //个开始搜
 ^~~
 char
foo.cc:47:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:53:1: error: 'ans' does not name a type
 ans:=lin;
 ^~~
foo.cc:55:1: error: 'exit' does not name a type
 exit;
 ^~~~
foo.cc:57:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:59:1: error: expected unqualified-id before 'if'
 if dep >= best then exit;
 ^~
foo.cc:61:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^~~
foo.cc:67:1: error: 'vis' does not name a type; did you mean 'void'?
 vis[i]:=1;
 ^~~
 void
foo.cc:69:4: error: expected constructor, destructor, or type conversion before '(' token
 dfs(dep+1,now or res[i],goa);
    ^
foo.cc:71:1: error: 'vis' does not name a type; did you mean 'void'?
 vis[i]:=0;
 ^~~
 void
foo.cc:73:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:75:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:77:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:81:1: error: expected unqualified-id before 'for'
 for i:=1 to n do begin
 ^~~
foo.cc:85:1: error: 'st' does not name a type
 st:=copy(s,1,pos('-',s)-1);
 ^~
foo.cc:87:1: error: expected unqualified-id before 'delete'
 delete(s,1,pos('>',s));
 ^~~~~~
foo.cc:89:1: error: 'pre' does not name a type
 pre[i]:=bush(st);
 ^~~
foo.cc:91:1: error: 'res' does not name a type
 res[i]:=bush(s);
 ^~~
foo.cc:93:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:95:1: error: expected unqualified-id before 'for'
 for i:=1 to n do begin //这里整个FOR都在预判
 ^~~
foo.cc:99:1: error: 'vis' does not name a type; did you mean 'void'?
 vis[i]:=1;
 ^~~
 void
foo.cc:101:1: error: 'flag' does not name a type; did you mean 'float'?
 flag:=true;
 ^~~~
 float
foo.cc:103:1: error: 't' does not name a type
 t:=pre[i]; r:=res[i];
 ^
foo.cc:103:12: error: 'r' does not name a type
 t:=pre[i]; r:=res[i];
            ^
foo.cc:105:1: error: expected unqualified-id before 'while'
 while flag do begin
 ^~~~~
foo.cc:109:1: error: 'flag' does not name a type; did you mean 'float'?
 flag:=false;
 ^~~~
 float
foo.cc:111:1: error: 'j' does not name a type
 j:=1;
 ^
foo.cc:113:1: error: expected unqualified-id before 'while'
 while j
 ^~~~~

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