Множества данных

[informatik93]

Нужно для 2 строк определить образуют ли они одинаковые множества или нет!

Проблема-выводит только (множини однакові),а разные нет...


type TSetChar=set of Char;
var M1,M2:TSetChar; s1,s2:String; i,n :Integer;
begin
Writeln('Vvedit text:1');
Readln(s1);
Writeln('Vvedit text2:');
Readln(s2);
Writeln;
;
M1:=[];
for i:=1 to length(s1) do
Begin
if s1[i] in M1 then include(m1,s1[i]);
end;
M2:=[];
for i:=1 to length(s2) do
Begin
if s2[i] in M2 then include(M2,s2[i]);
end;
if m1-m2=[] then write('MHozhuHu ogHakoBi')
else write('ni');

Readln;
end.

[Camaro Chevelle]

множества-то не пробовал заполнять?

[informatik93]

только их начали изучать незнаю как?

[Camaro Chevelle]

ничё не заполняется в твоей проге
зачем вот эта проверка объясни

if s1[i] in M1 then

[informatik93]

если строка 1 входит в множество м1....

[Camaro Chevelle]

зачем??????? она в него входит, если оно пустое изначально?

[informatik93]

а как тогда заполнить множество?

[Camaro Chevelle]

без этой непонятной проверки попробуй

[informatik93]

всё равно также!

[Camaro Chevelle]

с s2 и M2 аналогично сделал?