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

var s1,s2:string;
begin
writeln('Введите первое слово');
readln(s1);
writeln('Введите второе слово');
readln(s2);
if length(s1)<>length(s2) then write('NO')
else
 begin
  while pos(s1[1],s2)>0 do
   begin
    delete(s2,pos(s1[1],s2),1);
    delete(s1,1,1);
   end;
  if s1='' then write('YES') else write('NO');
 end;
end.

program mufasa;
var s1,s2: string;
var i,n,c,j: integer;
var a,b:char;
begin
readln(s1);
readln(s2);
if length(s1)<>length(s2) then
write('NO')
else
begin
n:=length(s1);
for i:= 1 to n do
begin
a:=(s1[i]);
for j:= 1 to n do
begin
b:=(s2[j]);
if a = b then
begin
s1[i]:='0';
s2[j]:='0';
end;
end;
end;
end;
if (s1=('0'*n)) and (s1=('0'*n)) then
write('yes')
else
write('no');
end.

program test;
 
var
  s1, s2: string;
  temp: byte;
  i: integer;
begin
  readln(s1);
  readln(s2);
  if length(s1) <> length(s2) then
    writeln('NO')
  else
  begin
    temp := 0;
    for i := 1 to length(s1) do
      temp := temp xor ord(s1[i]);
    for i := 1 to length(s2) do
      temp := temp xor ord(s2[i]);
    if temp = 0 then
      writeln('YES')
    else
      writeln('NO');
  end;
end.