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

uses crt;
const sg=['Б','б','В','в','Г','г','Д','д','Ж','ж','З','з','К','к','Л','л'
          ,'М','м','Н','н','П','п','Р','р','С','с','Т','т','Ф','ф','Х','х'
          ,'Ц','ц','Ч','ч','Ш','ш','Щ','щ'];{согласные буквы}
      rz=['.',',','?','!',' '];{разделители, при неоходимости добавить}
      ds=['А'..'п','р'..'ё'];{все русские буквы}
var s,s1:string;
    m1,mi:set of char;
    i,j,k:byte;
begin
clrscr;
k:=0;
repeat
writeln('Введите предложение из русских букв:');
readln(s);
m1:=ds+rz;{все что можно вводить}
for i:=1 to length(s) do
if not(s[i] in m1) then{если ввели не то}
 begin
   writeln('Предложение введено неверно. Повторите ввод.');
   k:=1;
   break;{сообщаем, выходим из внутреннего цикла, повторяем ввод}
 end;
until k=0;
for i:=1 to length(s) do
if s[i] in rz then s[i]:=' ';{заменим разделители на пробелы}
s:=s+' ';{}
while pos('  ',s)>0 do{если рядом 2 пробела}
delete(s, pos('  ',s),1);{1 удалим}
s1:=copy(s,1,pos(' ',s));{первое слово}
m1:=[];{создаем множество, пока пустое}
for i:=1 to length(s1) do
if s1[i] in sg then m1:=m1+[s1[i]];{собираем в него согласные буквы первого слова}
delete(s,1,pos(' ',s)); {удаляем это слово}
while pos(' ',s)>0 do{пока есть пробелы все повторяем с другими словами}
 begin
  s1:=copy(s,1,pos(' ',s));
  mi:=[];
  for i:=1 to length(s1) do
  if s1[i] in sg then mi:=mi+[s1[i]];
  m1:=m1*mi;{каждый раз определяем пересечение первого множества с новыми}
  delete(s,1,pos(' ',s));
 end;
if m1=[] then{если пусто}
 begin
  write('Указанных по условию букв нет!');
  readln;
  exit;
 end;
writeln('Множество согласных букв, которые есть в каждом слове:');
for i:=129 to 233 do{коды символов русских согласных букв}
if chr(i) in m1 then write(chr(i),' '); {если есть такой, выводим}
readln
end.