/in/foo.cc:9:9: error: too many decimal points in number
 a:array[1..1000] of char;
         ^~~~~~~
/in/foo.cc:1:1: error: 'program' does not name a type
 program kk;
 ^~~~~~~
/in/foo.cc:3:1: error: 'var' does not name a type
 var ss,s:string;
 ^~~
/in/foo.cc:5:1: error: 'n' does not name a type
 n,l,i,j:integer;
 ^
/in/foo.cc:7:3: error: found ':' in nested-name-specifier, expected '::'
 ji:longint;
   ^
/in/foo.cc:7:1: error: 'ji' does not name a type
 ji:longint;
 ^~
/in/foo.cc:9:2: error: found ':' in nested-name-specifier, expected '::'
 a:array[1..1000] of char;
  ^
/in/foo.cc:9:1: error: 'a' does not name a type
 a:array[1..1000] of char;
 ^
/in/foo.cc:11:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:15:1: error: 'l' does not name a type
 l:=length(ss);
 ^
/in/foo.cc:17:1: error: expected unqualified-id before 'for'
 for i:=1 to l do
 ^~~
/in/foo.cc:27:1: error: expected unqualified-id before 'break'
 break;
 ^~~~~
/in/foo.cc:29:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:31:1: error: 'ji' does not name a type
 ji:=1;
 ^~
/in/foo.cc:33:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^~~
/in/foo.cc:39:1: error: expected unqualified-id before 'while'
 while ji mod 10=0 do ji:=ji div 10;
 ^~~~~
/in/foo.cc:41:1: error: expected unqualified-id before 'if'
 if ji mod 100 then ji:=ji mod 10;
 ^~
/in/foo.cc:43:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:45:4: error: expected constructor, destructor, or type conversion before '(' token
 str(ji,s);
    ^
/in/foo.cc:47:1: error: 'l' does not name a type
 l:=length(s);
 ^
/in/foo.cc:49:1: error: expected unqualified-id before 'for'
 for i:=1 to l do
 ^~~
/in/foo.cc:53:1: error: expected unqualified-id before 'for'
 for i:=l downto 1 do
 ^~~
/in/foo.cc:61:1: error: 'exit' does not name a type
 exit;
 ^~~~
/in/foo.cc:63:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:65:1: error: 'end' does not name a type
 end.
 ^~~