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

const
     a: set of char=['а'..'я'];
     g: set of char=['у','ё','е','ы','а','о','э','я','и','ю'];
     s: set of char=a-g;
     p: set of char=[' ','.',',',';',':','!','?','-','(',')'];
var str,temp: string [79];
    m,m1: set of char;
    c:char;
    i,j:integer;
begin
writeln('введите строку из строчных русских букв, разделяя слова запятыми:'); 
readln(str);
m:=[];
str:=str+' ';
for i:=1 to length(str) do
  if not (str[i] in p) then temp:=temp+str[i] else
    if length(temp)>0 then
      begin
      m1:=[];
      for j:=1 to length(temp) do
        if temp[j] in s then m1:=m1+[temp[j]];
      if m=[] then m:=m1 else m:=m*m1;
      temp:='';
      end;
writeln('Упорядоченные в алфавитном порядке согласные, которые входят во все слова:');
writeln (m);
{for c:='а' to 'я' do
  if c in m then write(c,' ');}
  readln;
end.

const
     a: set of char=['а'..'я'];
     g: set of char=['у','ё','е','ы','а','о','э','я','и','ю'];
     p: set of char=[' ','.',',',';',':','!','?','-','(',')'];
var str,temp: string [79];
    s,m,m1: set of char;
    c:char;
    i,j:integer;
begin
s:=a-g;