Дана строка. В алфавитном порядке напечатайте все строчные латинские согласные буквы, входящие в эту строку

const
  m = ['a'..'z'] - ['a', 'e', 'i', 'o', 'u', 'y'];
 
var
  s: string;
  i: byte;
  c: char;
  t: set of char;
 
begin
  WriteLn('Введите строку:');
  ReadLn(s);
  for i := 1 to Length(s) do
    if s[i] in m then
      Include(t, s[i]);
  for c := 'b' to 'z' do
    if c in t then
      Write(c, ' ');
  ReadLn
end.

const
  bukva = ['a'..'z']; {множество всех букв}
  glas = ['a', 'e', 'i', 'o', 'u']; {множество гласных букв}
var
  s : string;
  i : integer;   
  soglas : set of char;
  c : char;
begin
  soglas := []; {пока пустое множество согласных}
  write('введите строку: ');
  readln(s);
  {проходим строку и формируем множество согласных}
  for i := 1 to length(s) do
    if (s[i] in bukva) and (not (s[i] in glas)) then
      include(soglas, s[i]);
  {выводим множество согласных}
  write('в строке встречаются следующие согласные: ');
  for c := 'b' to 'z' do
    if c in soglas then write(c, ' ');
  readln
end.

const
  m = ['a'..'z'] - ['a', 'e', 'i', 'o', 'u', 'y'];
 
var
  s: string;
  i: byte;
  c: char;
  t: set of char;
 
begin
  WriteLn('Введите строку:');
  ReadLn(s);
  for i := 1 to Length(s) do
    Include(t, s[i]);
  t:=t*m;
  for c := 'b' to 'z' do
    if c in t then
      Write(c, ' ');
  ReadLn
end.