/in/foo.cc:7:20: error: too many decimal points in number
    7 |   tempTimes: array[1..100] of longint;
      |                    ^~~~~~
/in/foo.cc:8:19: error: too many decimal points in number
    8 |   timeList: array[1..100] of longint;
      |                   ^~~~~~
/in/foo.cc:9:20: error: too many decimal points in number
    9 |   lyricList: array[1..100] of ansistring;
      |                    ^~~~~~
/in/foo.cc:53:12: warning: character constant too long for its type
   53 |     if pos('[offset:', line) = 1 then
      |            ^~~~~~~~~~
/in/foo.cc:62:13: warning: multi-character character constant [-Wmultichar]
   62 |     if (pos('[ti:', line) = 1) or (pos('[ar:', line) = 1) or
      |             ^~~~~~
/in/foo.cc:62:40: warning: multi-character character constant [-Wmultichar]
   62 |     if (pos('[ti:', line) = 1) or (pos('[ar:', line) = 1) or
      |                                        ^~~~~~
/in/foo.cc:63:13: warning: multi-character character constant [-Wmultichar]
   63 |        (pos('[al:', line) = 1) or (pos('[by:', line) = 1) then
      |             ^~~~~~
/in/foo.cc:63:40: warning: multi-character character constant [-Wmultichar]
   63 |        (pos('[al:', line) = 1) or (pos('[by:', line) = 1) then
      |                                        ^~~~~~
/in/foo.cc:67:14: error: empty character constant
   67 |     lyric := '';
      |              ^~
/in/foo.cc:1:1: error: expected unqualified-id before '{' token
    1 | {$H+}
      | ^
/in/foo.cc:2:1: error: 'program' does not name a type
    2 | program LrcParser;
      | ^~~~~~~
/in/foo.cc:3:1: error: 'uses' does not name a type
    3 | uses SysUtils;
      | ^~~~
/in/foo.cc:4:1: error: 'var' does not name a type
    4 | var
      | ^~~
/in/foo.cc:6:3: error: 'line' does not name a type
    6 |   line, tag, lyric: ansistring;
      |   ^~~~
/in/foo.cc:7:12: error: found ':' in nested-name-specifier, expected '::'
    7 |   tempTimes: array[1..100] of longint;
      |            ^
      |            ::
/in/foo.cc:7:3: error: 'tempTimes' does not name a type
    7 |   tempTimes: array[1..100] of longint;
      |   ^~~~~~~~~
/in/foo.cc:8:11: error: found ':' in nested-name-specifier, expected '::'
    8 |   timeList: array[1..100] of longint;
      |           ^
      |           ::
/in/foo.cc:8:3: error: 'timeList' does not name a type
    8 |   timeList: array[1..100] of longint;
      |   ^~~~~~~~
/in/foo.cc:9:12: error: found ':' in nested-name-specifier, expected '::'
    9 |   lyricList: array[1..100] of ansistring;
      |            ^
      |            ::
/in/foo.cc:9:3: error: 'lyricList' does not name a type
    9 |   lyricList: array[1..100] of ansistring;
      |   ^~~~~~~~~
/in/foo.cc:10:9: error: found ':' in nested-name-specifier, expected '::'
   10 |   offset: longint;
      |         ^
      |         ::
/in/foo.cc:10:3: error: 'offset' does not name a type
   10 |   offset: longint;
      |   ^~~~~~
/in/foo.cc:12:1: error: 'function' does not name a type; did you mean 'union'?
   12 | function ParseTime(s: ansistring): longint;
      | ^~~~~~~~
      | union
/in/foo.cc:13:1: error: 'var' does not name a type
   13 | var
      | ^~~
/in/foo.cc:15:3: error: 'p' does not name a type
   15 |   p, dot: integer;
      |   ^
/in/foo.cc:16:7: error: found ':' in nested-name-specifier, expected '::'
   16 |   frac: ansistring;
      |       ^
      |       ::
/in/foo.cc:16:3: error: 'frac' does not name a type
   16 |   frac: ansistring;
      |   ^~~~
/in/foo.cc:17:1: error: 'begin' does not name a type
   17 | begin
      | ^~~~~
/in/foo.cc:19:3: error: 'mm' does not name a type
   19 |   mm := StrToIntDef(copy(s, 1, p-1), 0);
      |   ^~
/in/foo.cc:20:3: error: 's' does not name a type
   20 |   s := copy(s, p+1, length(s));
      |   ^
/in/foo.cc:22:3: error: 'dot' does not name a type
   22 |   dot := pos(':', s);
      |   ^~~
/in/foo.cc:23:3: error: expected unqualified-id before 'if'
   23 |   if dot > 0 then s[dot] := '.';
      |   ^~
/in/foo.cc:24:3: error: 'dot' does not name a type
   24 |   dot := pos('.', s);
      |   ^~~
/in/foo.cc:25:3: error: expected unqualified-id before 'if'
   25 |   if dot = 0 then
      |   ^~
/in/foo.cc:28:5: error: 'ms' does not name a type
   28 |     ms := 0;
      |     ^~
/in/foo.cc:29:3: error: 'end' does not name a type
   29 |   end
      |   ^~~
/in/foo.cc:33:5: error: 'frac' does not name a type
   33 |     frac := copy(s, dot+1, length(s));
      |     ^~~~
/in/foo.cc:34:5: error: 'ms' does not name a type
   34 |     ms := StrToIntDef(frac, 0);
      |     ^~
/in/foo.cc:36:5: error: expected unqualified-id before 'while'
   36 |     while length(frac) < 3 do
      |     ^~~~~
/in/foo.cc:39:7: error: 'frac' does not name a type
   39 |       frac := frac + '0';
      |       ^~~~
/in/foo.cc:40:5: error: 'end' does not name a type
   40 |     end;
      |     ^~~
/in/foo.cc:41:3: error: 'end' does not name a type
   41 |   end;
      |   ^~~
/in/foo.cc:42:3: error: 'ParseTime' does not name a type
   42 |   ParseTime := (mm * 60 + ss) * 1000 + ms;
      |   ^~~~~~~~~
/in/foo.cc:43:1: error: 'end' does not name a type
   43 | end;
      | ^~~
/in/foo.cc:45:1: error: 'begin' does not name a type
   45 | begin
      | ^~~~~
/in/foo.cc:47:3: error: 'offset' does not name a type
   47 |   offset := 0;
      |   ^~~~~~
/in/foo.cc:48:3: error: 'cnt' does not name a type; did you mean 'int'?
   48 |   cnt := 0;
      |   ^~~
      |   int
/in/foo.cc:49:3: error: expected unqualified-id before 'for'
   49 |   for i := 1 to n do
      |   ^~~
/in/foo.cc:53:5: error: expected unqualified-id before 'if'
   53 |     if pos('[offset:', line) = 1 then
      |     ^~
/in/foo.cc:56:7: error: 'q' does not name a type
   56 |       q := pos(']', line);
      |       ^
/in/foo.cc:57:7: error: 'off' does not name a type
   57 |       off := StrToIntDef(copy(line, p+1, q-p-1), 0);
      |       ^~~
/in/foo.cc:58:7: error: 'offset' does not name a type
   58 |       offset := off;
      |       ^~~~~~
/in/foo.cc:59:7: error: expected unqualified-id before 'continue'
   59 |       continue;
      |       ^~~~~~~~
/in/foo.cc:60:5: error: 'end' does not name a type
   60 |     end;
      |     ^~~
/in/foo.cc:62:5: error: expected unqualified-id before 'if'
   62 |     if (pos('[ti:', line) = 1) or (pos('[ar:', line) = 1) or
      |     ^~
/in/foo.cc:66:5: error: 'tagCnt' does not name a type
   66 |     tagCnt := 0;
      |     ^~~~~~
/in/foo.cc:67:5: error: 'lyric' does not name a type
   67 |     lyric := '';
      |     ^~~~~
/in/foo.cc:68:5: error: 'p' does not name a type
   68 |     p := 1;
      |     ^
/in/foo.cc:69:5: error: expected unqualified-id before 'while'
   69 |     while p <= length(line) do
      |     ^~~~~
/in/foo.cc:74:9: error: expected unqualified-id before 'while'
   74 |         while (q <= length(line)) and (line[q] <> ']') do inc(q);
      |         ^~~~~
/in/foo.cc:75:9: error: expected unqualified-id before 'if'
   75 |         if q <= length(line) then
      |         ^~
/in/foo.cc:78:11: error: expected unqualified-id before 'if'
   78 |           if pos(':', tag) > 0 then  // 包含冒号，可能是时间标签
      |           ^~
/in/foo.cc:81:13: error: 'tempTimes' does not name a type
   81 |             tempTimes[tagCnt] := ParseTime(tag) - offset;
      |             ^~~~~~~~~
/in/foo.cc:82:11: error: 'end' does not name a type
   82 |           end;
      |           ^~~
/in/foo.cc:83:11: error: 'p' does not name a type
   83 |           p := q + 1;
      |           ^
/in/foo.cc:84:9: error: 'end' does not name a type
   84 |         end
      |         ^~~
/in/foo.cc:87:7: error: 'end' does not name a type
   87 |       end
      |       ^~~
/in/foo.cc:91:12: error: expected constructor, destructor, or type conversion before '(' token
   91 |         inc(p);
      |            ^
/in/foo.cc:92:7: error: 'end' does not name a type
   92 |       end;
      |       ^~~
/in/foo.cc:93:5: error: 'end' does not name a type
   93 |     end;
      |     ^~~
/in/foo.cc:95:5: error: expected unqualified-id before 'for'
   95 |     for j := 1 to tagCnt do
      |     ^~~
/in/foo.cc:98