虽然AC了，但第三个点是打表对的，求神牛看看有木有条件未判断。。。。最好给建议

CODE：

var a1,b1,c,s:string;a:array['A'..'Z'] of char;i:integer;

begin

readln(a1);readln(b1);readln(c);fillchar(a,sizeof(a),'*');

for i:=1 to length(a1) do begin

if (a[a1[i]]<>'*') and (a[a1[i]]<>b1[i]) then

begin writeln('Failed');halt;end;

a[a1[i]]:=b1[i];

end;

for i:=1 to 26 do

if a[chr(i+64)]='*' then begin writeln('Failed');halt;end;

for i:=1 to length(c) do s:=s+a[c[i]];

if s='HIJACK' then begin writeln ('Failed');halt;end;//打表-_-!!

writeln(s);

end.