Используя множества сравнить две строки на эквивалентность расположения букв и цифр - Pascal

var mn1,mn2:set of char;sl1,sl2:string[90];i:byte;
begin
   writeln('Введите первую строку');
   readln(sl1);
   writeln('Введите вторую строку');
   readln(sl2);
   if length(sl1)<>length(sl2) then begin
                                          writeln('Строки не эквивалентны их длина разная');
                                          exit;
                                       end;
   mn1:=[];mn2:=[];
   for i:=1 to length(sl1) do
   begin
     include(mn1,sl1[i]);
     include(mn2,sl2[i]);
   end;
   if mn1=mn2 then writeln('Строки эквивалентны')
                    else writeln('Строки не эквивалентны');
end.