/in/foo.cc:9:13: error: too many decimal points in number
 a,b,c:array[1..1200]of integer;
             ^~~~~~~
/in/foo.cc:1:1: error: 'var' does not name a type
 var
 ^~~
/in/foo.cc:5:1: error: 'k' does not name a type
 k,x,l1,l2,i,j:longint;
 ^
/in/foo.cc:7:3: error: found ':' in nested-name-specifier, expected '::'
 xs:integer;ss:ansistring;
   ^
/in/foo.cc:7:1: error: 'xs' does not name a type
 xs:integer;ss:ansistring;
 ^~
/in/foo.cc:7:14: error: found ':' in nested-name-specifier, expected '::'
 xs:integer;ss:ansistring;
              ^
/in/foo.cc:7:12: error: 'ss' does not name a type
 xs:integer;ss:ansistring;
            ^~
/in/foo.cc:9:1: error: 'a' does not name a type
 a,b,c:array[1..1200]of integer;
 ^
/in/foo.cc:11:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:15:7: error: expected constructor, destructor, or type conversion before '(' token
 readln(s1);
       ^
/in/foo.cc:17:1: error: expected unqualified-id before 'if'
 if pos('.',s1)>0 then begin
 ^~
/in/foo.cc:21:1: error: expected unqualified-id before 'delete'
 delete(s1,pos('.',s1),1);
 ^~~~~~
/in/foo.cc:23:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:25:7: error: expected constructor, destructor, or type conversion before '(' token
 readln(s2);
       ^
/in/foo.cc:27:1: error: expected unqualified-id before 'if'
 if pos('.',s2)>0 then begin
 ^~
/in/foo.cc:31:1: error: expected unqualified-id before 'delete'
 delete(s2,pos('.',s2),1);
 ^~~~~~
/in/foo.cc:33:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:35:1: error: 'l1' does not name a type
 l1:=length(s1);l2:=length(s2);
 ^~
/in/foo.cc:35:16: error: 'l2' does not name a type
 l1:=length(s1);l2:=length(s2);
                ^~
/in/foo.cc:37:1: error: expected unqualified-id before 'for'
 for i:=1 to l1 do
 ^~~
/in/foo.cc:43:1: error: expected unqualified-id before 'if'
 if a[i]>9 then dec(a[i],7);
 ^~
/in/foo.cc:45:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:47:1: error: expected unqualified-id before 'for'
 for i:=1 to l2 do
 ^~~
/in/foo.cc:53:1: error: expected unqualified-id before 'if'
 if b[i]>9 then dec(b[i],7);
 ^~
/in/foo.cc:55:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:57:1: error: expected unqualified-id before 'for'
 for i:=1 to l1 do
 ^~~
/in/foo.cc:63:1: error: expected unqualified-id before 'for'
 for j:=1 to l2 do
 ^~~
/in/foo.cc:69:1: error: 'c' does not name a type
 c:=x mod k;
 ^
/in/foo.cc:71:1: error: 'x' does not name a type
 x:=x div k;
 ^
/in/foo.cc:73:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:75:1: error: 'j' does not name a type
 j:=i+l2-1;
 ^
/in/foo.cc:77:1: error: expected unqualified-id before 'while'
 while x>0 do
 ^~~~~
/in/foo.cc:83:1: error: 'c' does not name a type
 c[j]:=x mod k;
 ^
/in/foo.cc:85:1: error: 'x' does not name a type
 x:=x div k;
 ^
/in/foo.cc:87:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:89:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:91:1: error: 'j' does not name a type
 j:=1200;
 ^
/in/foo.cc:93:1: error: expected unqualified-id before 'while'
 while (c[j]=0)and(j>1) do dec(j);
 ^~~~~
/in/foo.cc:95:1: error: expected unqualified-id before 'for'
 for i:=j downto xs+1 do
 ^~~
/in/foo.cc:103:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:105:1: error: 'i' does not name a type
 i:=xs;
 ^
/in/foo.cc:107:1: error: expected unqualified-id before 'while'
 while (c[i]=0)and(i>0)do dec(i);
 ^~~~~
/in/foo.cc:109:1: error: expected unqualified-id before 'if'
 if i=0 then begin
 ^~
/in/foo.cc:113:1: error: 'halt' does not name a type
 halt;
 ^~~~
/in/foo.cc:115:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:117:1: error: 'ss' does not name a type
 ss:=ss+'.';
 ^~
/in/foo.cc:119:1: error: expected unqualified-id before 'for'
 for i:=xs downto 1 do
 ^~~
/in/foo.cc:127:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:129:1: error: expected unqualified-id before 'if'
 if ss[1]='.'then ss:='0'+ss;
 ^~
/in/foo.cc:131:8: error: expected constructor, destructor, or type conversion before '(' token
 writeln(ss);
        ^
/in/foo.cc:133:1: error: 'end' does not name a type
 end.
 ^~~