古代密码

【题目描述】
古罗马帝国有一个拥有各种部门的强大政府组织。其中一个部门就是保密服务部门。为了保险起见，在省与省之间传递的重要文件中的大写字母是加密的。当时最流行的加密方法是替换和重新排列。替换方法是将所有出现的字符按照一个规则替换，比如ABCDEFGHIJKLMNOPQRSTUVWXYZ到BCDEFGHIJKLMNOPQRSTUVWXYZA，如果原词是 “VICTORIOUS” 则它变成 “WJDUPSJPVT”。排列方法改变原来单词中字母的顺序。例如：将顺序<2, 1, 5, 4, 3, 7, 6, 10, 9, 8>应用到 “VICTORIOUS” 上，则得到”IVOTCIRSUO”。人们很快意识到单独应用替换方法或排列方法加密，都是很不保险的。但是如果结合这两种方法，在当时就可以得到非常可靠的加密方法。所以，很多重要信息先使用替换方法加密，再将加密的结果用排列的方法加密。用两种方法结合就可以将”VICTORIOUS” 加密成”JWPUDJSTVP”。
考古学家最近在一个石台上发现了一些信息。初看起来它们毫无意义，所以有人设想它们可能是用替换和排列的方法被加密了。人们试着解读了石台上的密码，现在他们想检查解读的是否正确。他们需要一个计算机程序来验证，你的任务就是写这个验证程序。
【输入格式】
第一行是石台上的文字。文字中没有空格，并且只有大写英文字母。第二行是被解读出来的加密前的文字。第二行也是由大写英文字母构成的。
【输出格式】
如果第二行经过某种加密方法后可以产生第一行的信息，输出 “YES”，否则输出”NO”。
【样例输入】
JWPUDJSTVP
VICTORIOUS
【样例输出】
YES
【数据范围】
对于100%的数据，字符串长度<=100
【分析】
因为加密方法中可以改变字母的顺序，所以我们没有必要关心顺序，而只要关心每个字母出现的次数。

var  st1,st2:string;    i,n:longint;    j:char;    a,b:array['A'..'Z']of longint;    c,d:array[0..101]of longint;begin  readln(st2);    readln(st1);    if length(st1)<>length(st2) then begin write('NO');exit; end;    n:=length(st1);  for i:=1 to n do begin      inc(a[st1[i]]);        inc(b[st2[i]]);    end;    for j:='A' to 'Z' do begin      inc(c[a[j]]);        inc(d[b[j]]);    end;    for i:=1 to 100 do      if c[i]<>d[i] then begin          write('NO');            exit;        end;    write('YES');end.