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