/in/foo.cc:9:58: warning: character constant too long for its type
    9 | if (a[s2[i]]<>'0')and(a[s2[i]]<>s1[i])then begin writeln('Failed');halt;end
      |                                                          ^~~~~~~~
/in/foo.cc:13:15: warning: character constant too long for its type
   13 | begin writeln('Failed');halt;end;
      |               ^~~~~~~~
/in/foo.cc:14:52: warning: character constant too long for its type
   14 | for c:='A' to 'Z' do if a[c]='0'then begin writeln('Failed');halt;end;
      |                                                    ^~~~~~~~
/in/foo.cc:1:1: error: 'var' does not name a type
    1 | var
      | ^~~
/in/foo.cc:3:1: error: 's1' does not name a type
    3 | s1,s2,s3:ansistring;
      | ^~
/in/foo.cc:4:2: error: found ':' in nested-name-specifier, expected '::'
    4 | i:longint;c,d:char;
      |  ^
      |  ::
/in/foo.cc:4:1: error: 'i' does not name a type
    4 | i:longint;c,d:char;
      | ^
/in/foo.cc:4:11: error: 'c' does not name a type
    4 | i:longint;c,d:char;
      |           ^
/in/foo.cc:5:1: error: 'begin' does not name a type
    5 | begin
      | ^~~~~
/in/foo.cc:7:7: error: expected constructor, destructor, or type conversion before '(' token
    7 | readln(s2);readln(s1);
      |       ^
/in/foo.cc:7:18: error: expected constructor, destructor, or type conversion before '(' token
    7 | readln(s2);readln(s1);
      |                  ^
/in/foo.cc:8:1: error: expected unqualified-id before 'for'
    8 | for i:=1 to length(s1)do
      | ^~~
/in/foo.cc:9:68: error: 'halt' does not name a type
    9 | if (a[s2[i]]<>'0')and(a[s2[i]]<>s1[i])then begin writeln('Failed');halt;end
      |                                                                    ^~~~
/in/foo.cc:9:73: error: 'end' does not name a type
    9 | if (a[s2[i]]<>'0')and(a[s2[i]]<>s1[i])then begin writeln('Failed');halt;end
      |                                                                         ^~~
/in/foo.cc:11:7: error: expected constructor, destructor, or type conversion before '(' token
   11 | readln(s3);
      |       ^
/in/foo.cc:12:1: error: expected unqualified-id before 'for'
   12 | for c:='A'to 'Y'do for d:=chr(ord(c)+1)to 'Z'do if a[c]=a[d] then
      | ^~~
/in/foo.cc:13:25: error: 'halt' does not name a type
   13 | begin writeln('Failed');halt;end;
      |                         ^~~~
/in/foo.cc:13:30: error: 'end' does not name a type
   13 | begin writeln('Failed');halt;end;
      |                              ^~~
/in/foo.cc:14:1: error: expected unqualified-id before 'for'
   14 | for c:='A' to 'Z' do if a[c]='0'then begin writeln('Failed');halt;end;
      | ^~~
/in/foo.cc:14:62: error: 'halt' does not name a type
   14 | for c:='A' to 'Z' do if a[c]='0'then begin writeln('Failed');halt;end;
      |                                                              ^~~~
/in/foo.cc:14:67: error: 'end' does not name a type
   14 | for c:='A' to 'Z' do if a[c]='0'then begin writeln('Failed');halt;end;
      |                                                                   ^~~
/in/foo.cc:15:1: error: expected unqualified-id before 'for'
   15 | for i:=1 to length(S3)do write(a[s3[i]]);
      | ^~~
/in/foo.cc:16:1: error: 'end' does not name a type
   16 | end.
      | ^~~