/in/foo.cc:3:9: error: too many decimal points in number
    3 | h:array[1..200]of boolean;
      |         ^~~~~~
/in/foo.cc:4:9: error: too many decimal points in number
    4 | f:array[1..256]of string;
      |         ^~~~~~
/in/foo.cc:31:4: error: empty character constant
   31 | x:='';
      |    ^~
/in/foo.cc:57:6: error: empty character constant
   57 | ans:='';
      |      ^~
/in/foo.cc:121:17: error: empty character constant
  121 | begin z:=da;da:='';end else
      |                 ^~
/in/foo.cc:1:1: error: 'var' does not name a type
    1 | var s,t,q,p,ans,v,z,da,u:string;
      | ^~~
/in/foo.cc:2:1: error: 'a' does not name a type
    2 | a,b,c,d,e,g,i,j,k,m,n,ji:longint;
      | ^
/in/foo.cc:3:2: error: found ':' in nested-name-specifier, expected '::'
    3 | h:array[1..200]of boolean;
      |  ^
      |  ::
/in/foo.cc:3:1: error: 'h' does not name a type
    3 | h:array[1..200]of boolean;
      | ^
/in/foo.cc:4:2: error: found ':' in nested-name-specifier, expected '::'
    4 | f:array[1..256]of string;
      |  ^
      |  ::
/in/foo.cc:4:1: error: 'f' does not name a type
    4 | f:array[1..256]of string;
      | ^
/in/foo.cc:5:1: error: 'function' does not name a type; did you mean 'union'?
    5 | function qian(l:string):string;
      | ^~~~~~~~
      | union
/in/foo.cc:6:1: error: 'var' does not name a type
    6 | var o,w:longint;r:string;
      | ^~~
/in/foo.cc:6:18: error: found ':' in nested-name-specifier, expected '::'
    6 | var o,w:longint;r:string;
      |                  ^
      |                  ::
/in/foo.cc:6:17: error: 'r' does not name a type
    6 | var o,w:longint;r:string;
      |                 ^
/in/foo.cc:7:1: error: 'begin' does not name a type
    7 | begin
      | ^~~~~
/in/foo.cc:9:1: error: 'r' does not name a type
    9 | r:=l;
      | ^
/in/foo.cc:10:1: error: expected unqualified-id before 'while'
   10 | while r[o]='0' do dec(o);
      | ^~~~~
/in/foo.cc:11:1: error: 'r' does not name a type
   11 | r[o]:=pred(r[o]);
      | ^
/in/foo.cc:12:1: error: expected unqualified-id before 'for'
   12 | for w:=o+1 to length(r) do r[w]:='9';
      | ^~~
/in/foo.cc:13:1: error: expected unqualified-id before 'if'
   13 | if r[1]='0' then delete(r,1,1);
      | ^~
/in/foo.cc:14:1: error: 'qian' does not name a type
   14 | qian:=r;
      | ^~~~
/in/foo.cc:15:1: error: 'end' does not name a type
   15 | end;
      | ^~~
/in/foo.cc:16:1: error: 'function' does not name a type; did you mean 'union'?
   16 | function hou(l:string):string;
      | ^~~~~~~~
      | union
/in/foo.cc:17:1: error: 'var' does not name a type
   17 | var o,w:longint;r:string;
      | ^~~
/in/foo.cc:17:18: error: found ':' in nested-name-specifier, expected '::'
   17 | var o,w:longint;r:string;
      |                  ^
      |                  ::
/in/foo.cc:17:17: error: 'r' does not name a type
   17 | var o,w:longint;r:string;
      |                 ^
/in/foo.cc:18:1: error: 'begin' does not name a type
   18 | begin
      | ^~~~~
/in/foo.cc:20:1: error: 'r' does not name a type
   20 | r:=l;
      | ^
/in/foo.cc:21:1: error: expected unqualified-id before 'while'
   21 | while (r[o]='9')and(o>1) do dec(o);
      | ^~~~~
/in/foo.cc:22:1: error: expected unqualified-id before 'if'
   22 | if (o=1)and(r[1]='9') then
      | ^~
/in/foo.cc:24:1: error: expected unqualified-id before 'for'
   24 | for w:=o+1 to length(r) do r[w]:='0';
      | ^~~
/in/foo.cc:25:1: error: 'hou' does not name a type
   25 | hou:=r;
      | ^~~
/in/foo.cc:26:1: error: 'end' does not name a type
   26 | end;
      | ^~~
/in/foo.cc:27:1: error: 'function' does not name a type; did you mean 'union'?
   27 | function sum(l1,w1:string):string;
      | ^~~~~~~~
      | union
/in/foo.cc:28:1: error: 'var' does not name a type
   28 | var o,r,e1:longint;l,w,x:string;
      | ^~~
/in/foo.cc:28:20: error: 'l' does not name a type
   28 | var o,r,e1:longint;l,w,x:string;
      |                    ^
/in/foo.cc:29:1: error: 'begin' does not name a type
   29 | begin
      | ^~~~~
/in/foo.cc:30:7: error: 'w' does not name a type
   30 | l:=l1;w:=w1;
      |       ^
/in/foo.cc:31:1: error: 'x' does not name a type
   31 | x:='';
      | ^
/in/foo.cc:32:1: error: expected unqualified-id before 'if'
   32 | if length(l)<length(w) then
      | ^~
/in/foo.cc:34:1: error: expected unqualified-id before 'if'
   34 | if length(l)>length(w) then
      | ^~
/in/foo.cc:36:1: error: 'e1' does not name a type
   36 | e1:=0;
      | ^~
/in/foo.cc:37:1: error: expected unqualified-id before 'for'
   37 | for o:=length(w) downto 1 do
      | ^~~
/in/foo.cc:40:1: error: 'e1' does not name a type
   40 | e1:=r div 10;
      | ^~
/in/foo.cc:41:1: error: 'r' does not name a type
   41 | r:=r mod 10;
      | ^
/in/foo.cc:42:1: error: 'x' does not name a type
   42 | x:=chr(r+48)+x;
      | ^
/in/foo.cc:43:1: error: 'end' does not name a type
   43 | end;
      | ^~~
/in/foo.cc:44:1: error: expected unqualified-id before 'if'
   44 | if e1>0 then x:=chr(e1+48)+x;
      | ^~
/in/foo.cc:45:1: error: 'sum' does not name a type
   45 | sum:=x;
      | ^~~
/in/foo.cc:46:1: error: 'end' does not name a type
   46 | end;
      | ^~~
/in/foo.cc:47:1: error: 'begin' does not name a type
   47 | begin
      | ^~~~~
/in/foo.cc:49:1: error: 'g' does not name a type
   49 | g:=length(s);
      | ^
/in/foo.cc:50:1: error: 'f' does not name a type
   50 | f[1]:='9';v:='9';
      | ^
/in/foo.cc:50:11: error: 'v' does not name a type
   50 | f[1]:='9';v:='9';
      |           ^
/in/foo.cc:51:1: error: expected unqualified-id before 'for'
   51 | for i:=2 to 256 do
      | ^~~
/in/foo.cc:54:1: error: 'f' does not name a type
   54 | f[i]:=v;
      | ^
/in/foo.cc:55:1: error: expected unqualified-id before 'for'
   55 | for j:=1 to i-1 do f[i]:=f[i]+'0';
      | ^~~
/in/foo.cc:56:1: error: 'end' does not name a type
   56 | end;
      | ^~~
/in/foo.cc:57:1: error: 'ans' does not name a type
   57 | ans:='';
      | ^~~
/in/foo.cc:58:1: error: expected unqualified-id before 'for'
   58 | for i:=1 to 250 do ans:=ans+'0';
      | ^~~
/in/foo.cc:59:1: error: 'c' does not name a type
   59 | c:=1;
      | ^
/in/foo.cc:60:1: error: expected unqualified-id before 'for'
   60 | for i:=1 to length(s) do if s[i]<>'0' then begin c:=0;break;end;
      | ^~~
/in/foo.cc:60:55: error: expected unqualified-id before 'break'
   60 | for i:=1 to length(s) do if s[i]<>'0' then begin c:=0;break;end;
      |                                                       ^~~~~
/in/foo.cc:60:61: error: 'end' does not name a type
   60 | for i:=1 to length(s) do if s[i]<>'0' then begin c:=0;break;end;
      |                                                             ^~~
/in/foo.cc:61:1: error: expected unqualified-id before 'if'
   61 | if c=1 then begin ji:=1;ans:='1'+s;e:=length(ans)-1;end;
      | ^~
/in/foo.cc:61:25: error: 'ans' does not name a type
   61 | if c=1 then begin ji:=1;ans:='1'+s;e:=length(ans)-1;end;
      |                         ^~~
/in/foo.cc:61:36: error: 'e' does not name a type
   61 | if c=1 then begin ji:=1;ans:='1'+s;e:=length(ans)-1;end;
      |                                    ^
/in/foo.cc:61:53: error: 'end' does not name a type
   61 | if c=1 then begin ji:=1;ans:='1'+s;e:=length(ans)-1;end;
      |                                                     ^~~
/in/foo.cc:62:1: error: expected unqualified-id before 'if'
   62 | if ji=0 then
      | ^~
/in/foo.cc:68:1: error: 't' does not name a type
   68 | t:=copy(s,j,i);a:=j-1;b:=j+i;
      | ^
/in/foo.cc:68:16: error: 'a' does not name a type
   68 | t:=copy(s,j,i);a:=j-1;b:=j+i;
      |                ^
/in/foo.cc:68:23: error: 'b' does not name a type
   68 | t:=copy(s,j,i);a:=j-1;b:=j+i;
      |                       ^
/in/foo.cc:69:1: error: 'q' does not name a type
   69 | q:=t;p:=t;
      | ^
/in/foo.cc:69:6: error: 'p' does not name a type
   69 | q:=t;p:=t;
      |      ^
/in/foo.cc:70:1: error: expected unqualified-id before 'while'
   70 | while a>0 do begin q:=qian(q);
      | ^~~~~
/in/foo.cc:71:1: error: expected unqualified-id before 'if'
   71 | if length(q)>a then begin t:=copy(q,length(q)-a+1,a)+t;a:=0;end else
      | ^~
/in/f