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

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[i], s2) <> 0 then       Delete(s, pos(s[i], s2), 1)    else Check := False;    If Check then       Writeln('Yes')    else       Writeln('No');    Readln; end.