foo.cc:3:13: error: too many decimal points in number
 a,b,c:array[0..100]of longint;
             ^~~~~~
foo.cc:5:13: error: too many decimal points in number
 block:array[0..100,0..3]of longint;
             ^~~~~~
foo.cc:5:20: error: too many decimal points in number
 block:array[0..100,0..3]of longint;
                    ^~~~
foo.cc:7:9: error: too many decimal points in number
 f:array[0..100,0..100,0..3]of longint;
         ^~~~~~
foo.cc:7:16: error: too many decimal points in number
 f:array[0..100,0..100,0..3]of longint;
                ^~~~~~
foo.cc:7:23: error: too many decimal points in number
 f:array[0..100,0..100,0..3]of longint;
                       ^~~~
foo.cc:1:1: error: 'var' does not name a type; did you mean 'char'?
 var n,m:Longint;
 ^~~
 char
foo.cc:3:1: error: 'a' does not name a type
 a,b,c:array[0..100]of longint;
 ^
foo.cc:5:6: error: found ':' in nested-name-specifier, expected '::'
 block:array[0..100,0..3]of longint;
      ^
foo.cc:5:1: error: 'block' does not name a type
 block:array[0..100,0..3]of longint;
 ^~~~~
foo.cc:7:2: error: found ':' in nested-name-specifier, expected '::'
 f:array[0..100,0..100,0..3]of longint;
  ^
foo.cc:7:1: error: 'f' does not name a type
 f:array[0..100,0..100,0..3]of longint;
 ^
foo.cc:9:1: error: 'procedure' does not name a type
 procedure init;
 ^~~~~~~~~
foo.cc:11:1: error: 'var' does not name a type; did you mean 'char'?
 var i:longint;
 ^~~
 char
foo.cc:13:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:17:1: error: 'a' does not name a type
 a[0]:=0;b[0]:=0;c[0]:=0;fillchar(block,sizeof(block),0);
 ^
foo.cc:17:9: error: 'b' does not name a type
 a[0]:=0;b[0]:=0;c[0]:=0;fillchar(block,sizeof(block),0);
         ^
foo.cc:17:17: error: 'c' does not name a type
 a[0]:=0;b[0]:=0;c[0]:=0;fillchar(block,sizeof(block),0);
                 ^
foo.cc:17:33: error: expected constructor, destructor, or type conversion before '(' token
 a[0]:=0;b[0]:=0;c[0]:=0;fillchar(block,sizeof(block),0);
                                 ^
foo.cc:19:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^~~
foo.cc:25:1: error: 'block' does not name a type
 block:=c[i];
 ^~~~~
foo.cc:27:1: error: 'block' does not name a type
 block:=a[i];
 ^~~~~
foo.cc:29:1: error: 'block' does not name a type
 block:=b[i];
 ^~~~~
foo.cc:31:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:33:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:35:1: error: 'function' does not name a type; did you mean 'union'?
 function max(a,b:longint):longint;
 ^~~~~~~~
 union
foo.cc:37:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:41:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:43:1: error: 'procedure' does not name a type
 procedure find;
 ^~~~~~~~~
foo.cc:45:1: error: 'var' does not name a type; did you mean 'char'?
 var i,j,t,k,p,h:longint;
 ^~~
 char
foo.cc:47:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:51:1: error: expected unqualified-id before '{' token
 {for i:=1 to m do
 ^
foo.cc:61:1: error: 'f' does not name a type
 f[1,1,1]:=block[1,1];f[1,1,2]:=block[1,2];f[1,1,3]:=block[1,3];
 ^
foo.cc:61:22: error: 'f' does not name a type
 f[1,1,1]:=block[1,1];f[1,1,2]:=block[1,2];f[1,1,3]:=block[1,3];
                      ^
foo.cc:61:43: error: 'f' does not name a type
 f[1,1,1]:=block[1,1];f[1,1,2]:=block[1,2];f[1,1,3]:=block[1,3];
                                           ^
foo.cc:63:1: error: expected unqualified-id before 'for'
 for i:=2 to n do
 ^~~
foo.cc:81:1: error: 't' does not name a type
 t:=f;
 ^
foo.cc:83:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:85:1: error: 'f' does not name a type
 f:=max(f[p,j-1,h]+block,f);
 ^
foo.cc:87:1: error: 't' does not name a type
 t:=f;
 ^
foo.cc:89:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:91:1: error: 't' does not name a type
 t:=0;
 ^
foo.cc:93:1: error: expected unqualified-id before 'for'
 for i:=m to n do
 ^~~
foo.cc:97:8: error: expected constructor, destructor, or type conversion before '(' token
 writeln(t);
        ^
foo.cc:99:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:101:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:105:1: error: 'find' does not name a type; did you mean 'int'?
 find;
 ^~~~
 int
foo.cc:107:1: error: 'end' does not name a type; did you mean 'enum'?
 end.
 ^~~
 enum

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