/in/foo.cc:4:15: error: too many decimal points in number
 f1,f,a:array[-3..1000,-3..1000] of longint;
               ^~~~~~~
/in/foo.cc:4:24: error: too many decimal points in number
 f1,f,a:array[-3..1000,-3..1000] of longint;
                        ^~~~~~~
/in/foo.cc:6:14: warning: multi-character character constant [-Wmultichar]
 assign(input,'1.in');
              ^~~~~~
/in/foo.cc:1:1: error: 'program' does not name a type
 program exam;
 ^~~~~~~
/in/foo.cc:2:1: error: 'var' does not name a type
 var i,j,m,n,k,l,ans,ans1,x1,x2,q:longint;
 ^~~
/in/foo.cc:3:1: error: 's1' does not name a type
 s1,s2:ansistring;
 ^~
/in/foo.cc:4:1: error: 'f1' does not name a type
 f1,f,a:array[-3..1000,-3..1000] of longint;
 ^~
/in/foo.cc:5:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:7:6: error: expected constructor, destructor, or type conversion before '(' token
 reset(input);
      ^
/in/foo.cc:8:7: error: expected constructor, destructor, or type conversion before '(' token
 readln(s1);
       ^
/in/foo.cc:9:7: error: expected constructor, destructor, or type conversion before '(' token
 readln(m);
       ^
/in/foo.cc:10:9: error: expected constructor, destructor, or type conversion before '(' token
 fillchar(f,sizeof(f),$7f);
         ^
/in/foo.cc:11:1: error: 'n' does not name a type
 n:=length(s1);
 ^
/in/foo.cc:12:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^~~
/in/foo.cc:15:1: error: expected unqualified-id before 'for'
 for j:=i+1 to n do
 ^~~
/in/foo.cc:17:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:19:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^~~
/in/foo.cc:21:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^~~
/in/foo.cc:27:1: error: expected unqualified-id before 'if'
 if f[k,q]>f[i,j]+1 then
 ^~
/in/foo.cc:29:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:30:1: error: expected unqualified-id before 'for'
 for i:=0 to m-1 do
 ^~~
/in/foo.cc:34:1: error: expected unqualified-id before 'break'
 break;
 ^~~~~
/in/foo.cc:35:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:36:1: error: expected unqualified-id before 'for'
 for i:=m-1 downto 0 do
 ^~~
/in/foo.cc:40:1: error: expected unqualified-id before 'break'
 break;
 ^~~~~
/in/foo.cc:41:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:42:1: error: 'end' does not name a type
 end.
 ^~~