Вывести в алфавитном порядке буквы, входящие одновременно во все множества

type mnz=set of char;
procedure init(s:string;var m:mnz);
var i:byte;
begin
m:=[];
for i:=1 to length(s)do
m:=m+[s[i]];
end;
procedure print(m:mnz;s:string);
var c:char;
begin
writeln(s);
for c:='а' to 'я' do
if c in m then write(c:2);
writeln;
end;
var d1,d3,d5,d7,m1,m2,m3,m4:mnz;
    c:char;
    k:byte;
begin
init('понедельник',d1);
init('среда',d3);
init('пятница',d5);
init('воскресение',d7);
print(d1,'Множество D1');
print(d3,'Множество D3');
print(d5,'Множество D5');
print(d7,'Множество D7');
m1:=d1*d3*d5*d7;
if m1=[] then writeln('Нет букв, входящих во все множества')
else print(m1,'Буквы, входящие во все множества');
m2:=d1*d5;
if m2=[] then writeln('Нет букв, входящих одновременно в ножества D1 и D5')
else print(m2,'Буквы, входящие одновременно в ножества D1 и D5');
m3:=d1+d3+d5+d7;
print(m3,'Буквы, входяшие хотя бы в одно множество');
m4:=[];
for c:='а' to 'я' do
 begin
  k:=0;
  if (c in d1)or(c in d3)or(c in d5)or(c in d7) then inc(k);
  if k=2 then m4:=m4+[c];
 end;
if m4=[] then write('Нет букв, входящих ровно в 2 множества')
else print(m4,'Буквы, входящие в 2 множества');
end.