Ввести два слова....

Ввести два слова. Определить, состоят ли они из одного и того же набора символов илинет.

 

var
    s, s2 : String;
    Check : Boolean;
    i : Integer;
begin

    Write('Введите первое слово: ');
    ReadLn(s);

    Write('Введите второе слово: ');
    ReadLn(s2);

    if Length(s) <> Length(s2) then
    begin
        Writeln('No');
        exit;
    end;

    Check := True;

   for i := 1 to Length(s) do
   if pos(s, s2) <> 0 then
      Delete(s, pos(s, s2), 1)
   else Check := False;

   If Check then
      Writeln('Yes')
   else
      Writeln('No');

   Readln;
end.