foo.cc:5:10: error: too many decimal points in number
 a:array [0..51,0..51] of boolean;
          ^~~~~
foo.cc:5:16: error: too many decimal points in number
 a:array [0..51,0..51] of boolean;
                ^~~~~
foo.cc:7:10: error: too many decimal points in number
 b:array [1..4,1..2] of integer;
          ^~~~
foo.cc:7:15: error: too many decimal points in number
 b:array [1..4,1..2] of integer;
               ^~~~
foo.cc:9:12: error: too many decimal points in number
 p,q:array [1..50] of integer;
            ^~~~~
foo.cc:11:10: error: too many decimal points in number
 f:array [0..50] of longint;
          ^~~~~
foo.cc:59:14: warning: character constant too long for its type
 assign(input,'mmatrix.in');reset(input);
              ^~~~~~~~~~~~
foo.cc:61:15: warning: character constant too long for its type
 assign(output,'mmatrix.out');rewrite(output);
               ^~~~~~~~~~~~~
foo.cc:1:1: error: 'var' does not name a type; did you mean 'char'?
 var max,min:longint;
 ^~~
 char
foo.cc:3:1: error: 'g' does not name a type
 g,j,n,m,k1,k2,i:integer;
 ^
foo.cc:5:2: error: found ':' in nested-name-specifier, expected '::'
 a:array [0..51,0..51] of boolean;
  ^
foo.cc:5:1: error: 'a' does not name a type
 a:array [0..51,0..51] of boolean;
 ^
foo.cc:7:2: error: found ':' in nested-name-specifier, expected '::'
 b:array [1..4,1..2] of integer;
  ^
foo.cc:7:1: error: 'b' does not name a type
 b:array [1..4,1..2] of integer;
 ^
foo.cc:9:1: error: 'p' does not name a type
 p,q:array [1..50] of integer;
 ^
foo.cc:11:2: error: found ':' in nested-name-specifier, expected '::'
 f:array [0..50] of longint;
  ^
foo.cc:11:1: error: 'f' does not name a type
 f:array [0..50] of longint;
 ^
foo.cc:13:1: error: 'procedure' does not name a type
 procedure zou(x,y:integer);
 ^~~~~~~~~
foo.cc:15:1: error: 'var' does not name a type; did you mean 'char'?
 var d,z:integer;
 ^~~
 char
foo.cc:17:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:23:1: error: 'a' does not name a type
 a[x,y]:=false;
 ^
foo.cc:25:1: error: 'p' does not name a type
 p[i]:=x;
 ^
foo.cc:27:1: error: 'q' does not name a type
 q[i]:=y;
 ^
foo.cc:29:1: error: expected unqualified-id before 'if'
 if i>g then f[i]:=k1*abs(p-x)+k2*abs(q-y);
 ^~
foo.cc:31:1: error: expected unqualified-id before 'if'
 if i=2*g then begin
 ^~
foo.cc:35:1: error: expected unqualified-id before 'for'
 for z:=g+1 to 2*g do if f[z]>max then max:=f[z];
 ^~~
foo.cc:37:1: error: 'min' does not name a type
 min:=max;
 ^~~
foo.cc:39:4: error: expected constructor, destructor, or type conversion before '(' token
 dec(i);
    ^
foo.cc:41:1: error: 'a' does not name a type
 a[x,y]:=true;
 ^
foo.cc:43:1: error: 'exit' does not name a type
 exit;
 ^~~~
foo.cc:45:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:47:1: error: expected unqualified-id before 'for'
 for d:=1 to 4 do begin zou(x+b[d,1],y+b[d,2]);end;
 ^~~
foo.cc:47:47: error: 'end' does not name a type; did you mean 'enum'?
 for d:=1 to 4 do begin zou(x+b[d,1],y+b[d,2]);end;
                                               ^~~
                                               enum
foo.cc:49:1: error: 'a' does not name a type
 a[x,y]:=true;
 ^
foo.cc:51:4: error: expected constructor, destructor, or type conversion before '(' token
 dec(i);
    ^
foo.cc:53:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:55:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:57:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:59:33: error: expected constructor, destructor, or type conversion before '(' token
 assign(input,'mmatrix.in');reset(input);
                                 ^
foo.cc:61:7: error: expected constructor, destructor, or type conversion before '(' token
 assign(output,'mmatrix.out');rewrite(output);
       ^
foo.cc:61:37: error: expected constructor, destructor, or type conversion before '(' token
 assign(output,'mmatrix.out');rewrite(output);
                                     ^
foo.cc:63:7: error: expected constructor, destructor, or type conversion before '(' token
 readln(n,m,k1,k2);
       ^
foo.cc:65:9: error: expected constructor, destructor, or type conversion before '(' token
 fillchar(a,sizeof(a),false);
         ^
foo.cc:67:1: error: 'b' does not name a type
 b[1,1]:=1;
 ^
foo.cc:69:1: error: 'b' does not name a type
 b[2,1]:=-1;
 ^
foo.cc:71:1: error: 'b' does not name a type
 b[3,2]:=-1;
 ^
foo.cc:73:1: error: 'b' does not name a type
 b[4,2]:=1;
 ^
foo.cc:75:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^~~
foo.cc:81:1: error: 'i' does not name a type
 i:=0;
 ^
foo.cc:83:1: error: 'min' does not name a type
 min:=maxlongint;
 ^~~
foo.cc:85:1: error: 'g' does not name a type
 g:=n*m div 2;
 ^
foo.cc:87:4: error: expected constructor, destructor, or type conversion before '(' token
 zou(1,1);
    ^
foo.cc:89:8: error: expected constructor, destructor, or type conversion before '(' token
 writeln(min);
        ^
foo.cc:91:6: error: expected constructor, destructor, or type conversion before '(' token
 close(input);
      ^
foo.cc:93:6: error: expected constructor, destructor, or type conversion before '(' token
 close(output);
      ^
foo.cc:95:1: error: 'end' does not name a type; did you mean 'enum'?
 end.
 ^~~
 enum

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