/in/foo.cc:3:11: error: too many decimal points in number
 a,b:array[1..1000] of string;
           ^~~~~~~
/in/foo.cc:5:11: error: too many decimal points in number
 r,f:array[1..1000] of longint;
           ^~~~~~~
/in/foo.cc:1:1: error: 'var' does not name a type
 var j1,d,n,i,i1,j,y,ans,m,k:longint;
 ^~~
/in/foo.cc:3:1: error: 'a' does not name a type
 a,b:array[1..1000] of string;
 ^
/in/foo.cc:5:1: error: 'r' does not name a type
 r,f:array[1..1000] of longint;
 ^
/in/foo.cc:7:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:11:1: error: expected unqualified-id before 'for'
 for d:=1 to n do
 ^~~
/in/foo.cc:13:23: error: expected constructor, destructor, or type conversion before '(' token
 begin ans:=0; fillchar(f,sizeof(f),0);
                       ^
/in/foo.cc:15:7: error: expected constructor, destructor, or type conversion before '(' token
 readln(m,k);
       ^
/in/foo.cc:17:1: error: expected unqualified-id before 'for'
 for i:=1 to m do
 ^~~
/in/foo.cc:21:1: error: expected unqualified-id before 'for'
 for i:=1 to k do
 ^~~
/in/foo.cc:25:1: error: expected unqualified-id before 'if'
 if m=1 then r[d]:=k
 ^~
/in/foo.cc:29:7: error: 'y' does not name a type
 i:=0; y:=m;
       ^
/in/foo.cc:31:1: error: expected unqualified-id before 'while'
 while i
 ^~~~~