Пусть задано множество А, напечатать в алфавитном порядке все согласные буквы этого множества, входящих в множество letters=[‘a’..’я’] — Pascal(Паскаль)

uses crt;
const sgl=['б','в','г','д','ж','з','й','к','л','м','п','р','с','т','ф','х','ц','ч'
      ,'ш','щ'];
type mnoz=set of char;
var a:mnoz;
    c:char;
    k:byte;
begin
clrscr;
writeln('Создайте множество A из символов, окончание ввода Enter:');
a:=[];
repeat
 read(c);//вводим в строку символы до нажатия Enter
 a:=a+[c];//составляем из них множество
until c=#13;
clrscr;
writeln('Множество А:');
for c:=#32 to #241 do//диапазон кодов символов, 
//которые можно ввести нажатием только одной клавиши
if c in a then write(c,' ');//если есть в множестве, выводим
writeln;
writeln('Согласные буквы из диапазона а-я, входящие в множество:');
k:=0;
for c:='а' to 'я' do
if (c in a)and (c in sgl) then//если есть в множестве и согласные
 begin
  k:=1;//фиксируем
  write(c,' ');//выводим
 end;
if k=0 then write('Указанных символов нет!');
readln
end.