Проверить, являются ли введенные слова анаграммами друг друга

var
  s, t: String;
  c: Char;
  i, j: Integer;
begin
  ReadLn(s); ReadLn(t);
  if Length(s)=Length(t) then begin
    for i:=Length(s) downto 2 do for j:=2 to i do
      if s[j-1]>s[j] then begin c:=s[j-1]; s[j-1]:=s[j]; s[j]:=c; end;
    for i:=Length(t) downto 2 do for j:=2 to i do
      if t[j-1]>t[j] then begin c:=t[j-1]; t[j-1]:=t[j]; t[j]:=c; end;
    if s=t then WriteLn('YES') else WriteLn('NO');
  end else WriteLn('NO');
end.

function Sort(s: String): String;
var
  i, j: Integer;
  c: Char;
begin
  for i:=Length(s) downto 2 do for j:=2 to i do
    if s[j-1]>s[j] then begin c:=s[j-1]; s[j-1]:=s[j]; s[j]:=c; end;
  Sort:=s;
end;
const NY: array [Boolean] of String[3] = ('NO', 'YES');
var s, t: String;
begin
  ReadLn(s); ReadLn(t);
  WriteLn(NY[(Length(s)=Length(t)) and (Sort(s)=Sort(t))]);
end.