Дан текст на русском языке. Напечатать в алфавитном порядке все звонкие согласные буквы, которые входят хотя бы в одно слово — Pascal(Паскаль)

Program mn_3;

uses crt;

type
  let = ' а' .. 'я';

var
  sogl: set of let;
  text: set of char;
  c: char;
  s: string;
  i: byte;

begin
  writeln('введите текст, заканчивающийся  точкой');
  readln(s);
  if s[length(s)] <> '.' then
    s := s + '.';
  text := [];
  sogl := ['б', 'в', 'г', 'д', 'ж', 'з', 'л', 'м', 'н', 'р'];
  repeat
    if s[i] in sogl then
      text := text + [s[i]];
    i := i + 1;
  until s[i] = '.';
  for c := 'a' to 'я' do
    if c in text then
      write(c);
  readln;

end.