Напечатать в алфавитном порядке все согласные буквы, которые входят в каждое нечетное слово

uses crt;
const sg=['b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t',
          'v','w','x','z'];{согласные}
      ds=['a'..'z',','];{допустимые для ввода}
type mnoz=set of char;
{процедура создания множества из строки символов}
procedure Mnozestvo(s:string;var m:mnoz);
var i:byte;
begin
m:=[];
for i:=1 to length(s) do
if s[i] in sg then m:=m+[s[i]];
end;
var s,s1:string;
    c:char;
    m,m1,mi:mnoz;
    i,j,k,z:byte;
begin
clrscr;
writeln('Введите последовательность слов из строчных латинских букв,');
writeln('разделенных запятыми, в конце точка');
{вводим символы, допустимые записываем в строку}
s:='';
repeat
read(c);
if c in ds then s:=s+c;
until c='.';
readln;{после ввода жмем Enter}
writeln(s);{выводим строку для проверки}
s:=s+',';  {добавим запятую в конец}
{удалим лишние запятые, если ввели 2 подряд}
while pos(',,',s)>0 do
delete(s, pos(',,',s),1);
{создадим множество всех согласных, которые есть в строке}
m:=[];
for i:=1 to length(s) do
if s[i] in sg then m:=m+[s[i]];
{создадим множество согласных в первом (нечетном) слове}
s1:=copy(s,1,pos(',',s));
Mnozestvo(s1,m1);
delete(s,1,pos(',',s));
i:=1;
while pos(',',s)>0 do {пока есть запятые}
 begin
  s1:=copy(s,1,pos(',',s));{копируемочередное первое слово}
  i:=i+1; {считаем}
  Mnozestvo(s1,mi);{создаем множество}
  if i mod 2<>0 then m1:=m1*mi;{если нечетное слово, делаем пересечение множеств-общие буквы}
  delete(s,1,pos(',',s));{удаляем проверенное слово, следующее первое}
 end;
if m1=[] then
 begin
  write('Указанных по условию букв нет!');
  readln;
  exit;
 end;
writeln('Множество указанных по условию букв:');
for c:='b' to 'z' do {коды}
if c in m1 then write(c,' ');
readln
end.