Free pascal 机器人交警

program robot;
var s:string;
c:char;
i:integer;
r1,r2:set of 'A'..'Z';
begin
readln(s); r1:=[]; r2:=[];
for i:=1 to length(s) do
r1:=r1+[s[i]];
readln(s);
for i:=1 to length(s) do
r2:=r2+[s[i]];
r1:=r1*r2; i:=0;
for c:='A' to 'Z' do
if c in r1 then i:=i+1;
if i=0 then write('WuXiao')
else if i=1 then
begin
writeln('ZhiHui'); for c:='A' to 'Z' do
if c in r1 then writeln(ord(c)-ord('A')+1);
end
else
begin
writeln('XLuo'); writeln(i); i:=0;
for c:='A' to 'Z' do
if c in r1 then
if i=0 then begin write(c); i:=i+1; end else write('-',c);
writeln;
end;
end.