foo.cc:7:10: error: too many decimal points in number
 dt:array[1..5,1..5] of word;
          ^~~~
foo.cc:7:15: error: too many decimal points in number
 dt:array[1..5,1..5] of word;
               ^~~~
foo.cc:13:9: error: too many decimal points in number
 a:array[1..5] of lx;
         ^~~~
foo.cc:15:9: error: too many decimal points in number
 c:array[1..9,1..9] of word;
         ^~~~
foo.cc:15:14: error: too many decimal points in number
 c:array[1..9,1..9] of word;
              ^~~~
foo.cc:27:22: warning: character constant too long for its type
 if t=-1 then Writeln('No solution possible')
                      ^~~~~~~~~~~~~~~~~~~~~~
foo.cc:149:12: error: too many decimal points in number
 temp:array[1..9,1..9] of word;
            ^~~~
foo.cc:149:17: error: too many decimal points in number
 temp:array[1..9,1..9] of word;
                 ^~~~
foo.cc:1:1: error: 'type' does not name a type
 type
 ^~~~
foo.cc:7:3: error: found ':' in nested-name-specifier, expected '::'
 dt:array[1..5,1..5] of word;
   ^
foo.cc:7:1: error: 'dt' does not name a type
 dt:array[1..5,1..5] of word;
 ^~
foo.cc:9:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:11:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:15:2: error: found ':' in nested-name-specifier, expected '::'
 c:array[1..9,1..9] of word;
  ^
foo.cc:15:1: error: 'c' does not name a type
 c:array[1..9,1..9] of word;
 ^
foo.cc:17:1: error: 'bc' does not name a type
 bc,n:integer;
 ^~
foo.cc:19:1: error: 'Procedure' does not name a type
 Procedure Outp(t:integer);
 ^~~~~~~~~
foo.cc:21:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:25:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:41:1: error: 'Writeln' does not name a type
 Writeln;
 ^~~~~~~
foo.cc:43:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:45:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:47:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:49:1: error: 'Procedure' does not name a type
 Procedure Init;
 ^~~~~~~~~
foo.cc:51:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:55:1: error: 'ch' does not name a type; did you mean 'char'?
 ch:char;
 ^~
 char
foo.cc:57:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:61:5: error: expected constructor, destructor, or type conversion before '(' token
 read(n);
     ^
foo.cc:63:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^~~
foo.cc:69:1: error: expected unqualified-id before 'for'
 for j:=1 to a[i].x do
 ^~~
foo.cc:79:1: error: expected unqualified-id before 'if'
 if ch='1' then a[i].dt[j,k]:=1 else a[i].dt[j,k]:=0;
 ^~
foo.cc:81:1: error: expected unqualified-id before 'if'
 if a[i].dt[j,k]=1 then mj:=mj+1;
 ^~
foo.cc:83:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:85:1: error: 'readln' does not name a type
 readln;
 ^~~~~~
foo.cc:87:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:89:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:91:1: error: 'bc' does not name a type
 bc:=trunc(sqrt(mj));
 ^~
foo.cc:93:1: error: expected unqualified-id before 'if'
 if bcsqrt(mj) then begin Outp(-1); halt; end;
 ^~
foo.cc:93:36: error: 'halt' does not name a type
 if bcsqrt(mj) then begin Outp(-1); halt; end;
                                    ^~~~
foo.cc:93:42: error: 'end' does not name a type; did you mean 'enum'?
 if bcsqrt(mj) then begin Outp(-1); halt; end;
                                          ^~~
                                          enum
foo.cc:95:1: error: expected unqualified-id before 'if'
 if mj=1 then begin Outp(-2); halt; end;
 ^~
foo.cc:95:30: error: 'halt' does not name a type
 if mj=1 then begin Outp(-2); halt; end;
                              ^~~~
foo.cc:95:36: error: 'end' does not name a type; did you mean 'enum'?
 if mj=1 then begin Outp(-2); halt; end;
                                    ^~~
                                    enum
foo.cc:97:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:99:1: error: 'Function' does not name a type; did you mean 'union'?
 Function CanPut(x,y,w:integer):boolean;
 ^~~~~~~~
 union
foo.cc:101:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:105:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:107:46: error: 'exit' does not name a type
 if (a[w].x+x-1)>bc then begin CanPut:=false; exit; end;
                                              ^~~~
foo.cc:107:52: error: 'end' does not name a type; did you mean 'enum'?
 if (a[w].x+x-1)>bc then begin CanPut:=false; exit; end;
                                                    ^~~
                                                    enum
foo.cc:109:1: error: expected unqualified-id before 'if'
 if (a[w].y+y-1)>bc then begin CanPut:=false; exit; end;
 ^~
foo.cc:109:46: error: 'exit' does not name a type
 if (a[w].y+y-1)>bc then begin CanPut:=false; exit; end;
                                              ^~~~
foo.cc:109:52: error: 'end' does not name a type; did you mean 'enum'?
 if (a[w].y+y-1)>bc then begin CanPut:=false; exit; end;
                                                    ^~~
                                                    enum
foo.cc:111:1: error: expected unqualified-id before 'for'
 for i:=x to (a[w].x+x-1) do
 ^~~
foo.cc:119:33: error: 'exit' does not name a type
 if c0 then begin CanPut:=false; exit; end;
                                 ^~~~
foo.cc:119:39: error: 'end' does not name a type; did you mean 'enum'?
 if c0 then begin CanPut:=false; exit; end;
                                       ^~~
                                       enum
foo.cc:121:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:123:1: error: 'CanPut' does not name a type
 CanPut:=true;
 ^~~~~~
foo.cc:125:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:127:1: error: 'Procedure' does not name a type
 Procedure PutInMap(x,y,w:integer);
 ^~~~~~~~~
foo.cc:129:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:133:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:141:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:143:1: error: 'Procedure' does not name a type
 Procedure dfs(b:integer);
 ^~~~~~~~~
foo.cc:145:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:149:5: error: found ':' in nested-name-specifier, expected '::'
 temp:array[1..9,1..9] of word;
     ^
foo.cc:149:1: error: 'temp' does not name a type
 temp:array[1..9,1..9] of word;
 ^~~~
foo.cc:151:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:155:16: error: 'halt' does not name a type
 begin Outp(b); halt; end;
                ^~~~
foo.cc:155:22: error: 'end' does not name a type; did you mean 'enum'?
 begin Outp(b); halt; end;
                      ^~~
                      enum
foo.cc:157:1: error: expected unqualified-id before 'for'
 for i:=1 to bc do
 ^~~
foo.cc:167:9: error: expected constructor, destructor, or type conversion before '(' token
 PutInMap(i,j,b);
         ^
foo.cc:169:4: error: expected constructor, destructor, or type conversion before '(' token
 dfs(b+1);
    ^
foo.cc:171:1: error: 'c' does not name a type
 c:=temp;
 ^
foo.cc:173:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:175:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:177:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:181:4: error: expected constructor, destructor, or type conversion before '(' token
 dfs(1);
    ^
foo.cc:183:5: error: expected constructor, destructor, or type conversion before '(' token
 Outp(-1);
     ^
foo.cc:185:1: error: 'end' does not name a type; did you mean 'enum'?
 end.
 ^~~
 enum

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