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

uses crt;
const gl=['к','п','с','т','ф','х','ц','ч','ш','щ'];{глухие}
      ds=['.',',','а'..'п','р'..'ё'];{все допустимые символы}
type mnoz=set of char;{множество символов}
var s:string;
    m:mnoz;
    i,k:byte;
begin
clrscr;
repeat
k:=0;
writeln('Введите слова русскими строчными буквами, между словами запятая, в конце точка:');
readln(s);
for i:=1 to length(s) do
if not(s[i] in ds)then k:=1;{если введен недопустимый символ}
if (k=1)or(pos('.',s)<>length(s))then writeln('Строка введена неверно, повторите ввод.');
until (k=0)and(pos('.',s)=length(s));{если все допустимые и в конце точка}
m:=[];
for i:=1 to length(s) do
if s[i] in gl then m:=m+[s[i]];{составляем множество из глухих, которые есть в строке}
writeln('Множество глухих, не входящих хотя бы в одно слово:');
for i:=170 to 233 do{проверяем все буквы, если она глухая, а ее нет в строке, выводим}
if (chr(i) in gl)and not(chr(i) in m) then write(chr(i),' ');
readln
end.

uses crt;
const gl=['к','п','с','т','ф','х','ц','ч','ш','щ'];
      ds=['.',',','а'..'п','р'..'ё'];
type mnoz=set of char;
var s:string;
    c:char;
    m:mnoz;
    i:byte;
begin
clrscr;
writeln('Введите слова русскими строчными буквами, между словами запятая, в конце точка:');
s:='';
repeat
read(c);
if c in ds then s:=s+c;
until c='.';
readln;
m:=[];
for i:=1 to length(s) do
if s[i] in gl then m:=m+[s[i]];
writeln('Множество глухих, не входящих хотя бы в одно слово:');
for i:=170 to 233 do
if (chr(i) in gl)and not(chr(i) in m) then write(chr(i),' ');
readln
end.