foo.cc:2:12: error: too many decimal points in number
    A:Array[1..100,1..100] Of Boolean;
            ^~~~~~
foo.cc:2:19: error: too many decimal points in number
    A:Array[1..100,1..100] Of Boolean;
                   ^~~~~~
foo.cc:3:12: error: too many decimal points in number
    B:Array[1..2,1..100] Of integer;
            ^~~~
foo.cc:3:17: error: too many decimal points in number
    B:Array[1..2,1..100] Of integer;
                 ^~~~~~
foo.cc:1:1: error: 'Var' does not name a type; did you mean 'char'?
 Var
 ^~~
 char
foo.cc:3:5: error: found ':' in nested-name-specifier, expected '::'
    B:Array[1..2,1..100] Of integer;
     ^
foo.cc:3:4: error: 'B' does not name a type
    B:Array[1..2,1..100] Of integer;
    ^
foo.cc:4:4: error: 'i' does not name a type
    i,j,x,y,t,n,k,s,max:Integer;
    ^
foo.cc:5:1: error: 'Procedure' does not name a type
 Procedure Find(i:Integer);
 ^~~~~~~~~
foo.cc:6:1: error: 'Var' does not name a type; did you mean 'char'?
 Var
 ^~~
 char
foo.cc:8:1: error: 'Begin' does not name a type
 Begin
 ^~~~~
foo.cc:13:7: error: 'B' does not name a type
       B[1,j]:=t;
       ^
foo.cc:14:7: error: 'B' does not name a type
       B[2,j]:=s;
       ^
foo.cc:15:11: error: expected constructor, destructor, or type conversion before '(' token
       find(j);
           ^
foo.cc:16:5: error: 'End' does not name a type
     End;
     ^~~
foo.cc:17:1: error: 'End' does not name a type
 End;
 ^~~
foo.cc:19:1: error: 'Begin' does not name a type
 Begin
 ^~~~~
foo.cc:22:11: error: expected constructor, destructor, or type conversion before '(' token
   FillChar(A,SizeOf(A),0);
           ^
foo.cc:23:3: error: 'For' does not name a type
   For i:=1 To k Do
   ^~~
foo.cc:26:5: error: 'A' does not name a type
     A[x,y]:=True;
     ^
foo.cc:27:5: error: 'A' does not name a type
     A[y,x]:=True;
     ^
foo.cc:28:3: error: 'End' does not name a type
   End;
   ^~~
foo.cc:29:3: error: 't' does not name a type
   t:=0;
   ^
foo.cc:30:3: error: 'For' does not name a type
   For i:=1 To n Do
   ^~~
foo.cc:33:14: error: 'B' does not name a type
       t:=t+1;B[1,i]:=t;
              ^
foo.cc:34:7: error: 's' does not name a type
       s:=1;B[2,i]:=s;
       ^
foo.cc:34:12: error: 'B' does not name a type
       s:=1;B[2,i]:=s;
            ^
foo.cc:35:11: error: expected constructor, destructor, or type conversion before '(' token
       Find(i);
           ^
foo.cc:36:5: error: 'End' does not name a type
     End;
     ^~~
foo.cc:37:5: error: 'max' does not name a type
     max:=0;
     ^~~
foo.cc:38:5: error: 'For' does not name a type
     For i:=1 To n Do
     ^~~
foo.cc:40:12: error: expected constructor, destructor, or type conversion before '(' token
     Writeln(t,' ',max);
            ^
foo.cc:41:10: error: expected constructor, destructor, or type conversion before '(' token
     Close(Input);Close(Output);
          ^
foo.cc:41:23: error: expected constructor, destructor, or type conversion before '(' token
     Close(Input);Close(Output);
                       ^
foo.cc:42:1: error: 'End' does not name a type
 End.
 ^~~

正在同步测试数据，请稍后
自豪的采用HydroJudge(https://github.com/hydro-dev/Hydro)进行评测。