Паскаль. задача на множества

[Isuzu_Rin]

Задача:
Дана непустая последовательность слов. Между соседними словами - запятая, за последним словом точка. Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят хотя бы в одно слово.

Просто найти эти буквы получается, но я не понимаю как среди них найти те которые не входят хотя бы в одно слово...

type bukv=set of char;
const sogl:bukv=['k','p','s','t','f','j','h'];
var st:string;
      i,a:integer;
      c:char;
      rez:bukv;
begin
  writeln('Vvedite stroku');
  read(st);
  rez:=[];
  for i:=1 to length(st) do
    if st[i] in sogl then
      rez:=rez + [st[i]];
  for c:='a' to 'z' do
   if c in rez then
    write(c,' ');
readln;
end.

Думала посчитать количество слов и поставить условие что кол-во вхождений буквы в строке должно быть меньше, но не понимаю куда в таком случае вставить это сравнение... Помогите пожалуйста.

[alex_fcsm]

uses crt;
type bukv=set of char;
const sogl:bukv=['k','p','s','t','f','j','h'];
var s:string;
    i:integer;
    m,m1:bukv;
    ch:char;
begin
clrscr;
readln(s);
i:=0;
m:=[];
repeat
inc(i);
if s[i]<>',' then  if s[i] in sogl then m:=m+[s[i]];
until s[i]=',';
repeat
m1:=[];
inc(i);
 while (s[i]<>',')and (s[i]<>'.') do
   begin
     if s[i]<>',' then  if s[i] in sogl then m1:=m1+[s[i]];
     inc(i);
   end;
m:=m*m1;
until s[i]='.';
m1:=sogl-m;
writeln;
for ch:='a' to 'z' do
 if (ch in sogl)and (ch in m1) then write(ch,' ');
end.