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

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.

program Project1;
 
{Дан текст на русском языке. напечатать в алфавитном порядке все звонкие
согласные буквы, которые входят более чем в одно слово.
 
Примеры:
1.
Дана строка: 'бвг, джз, лмн, р'
Ответ: Нет ни одной буквы, которая входила бы более, чем в одно слово.
2.
Дана строка: 'бвгд, джзр, лмн, р'
Ответ: Перечень звонких согласных букв, которые входят более, чем
  в одно слово: 'д', 'р'.}
 
const
  {Множество разделителей слов.}
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  {Множество звонких согласных букв.}
  Da = [
    'Б', 'В', 'Г', 'Д', 'Ж', 'З', 'Л', 'М', 'Н', 'Р',
    'б', 'в', 'г', 'д', 'ж', 'з', 'л', 'м', 'н', 'р' ];
var
  S : String;
  Dw, Ds, Dr : set of Char;
  Ch : Char;
  i, Len : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    Len := Length(S);
    Dw := []; {Множество согласных звонких букв в текущем слове.}
    Ds := []; {Множество согласных звонких букв, обнаруженных в предыдущих словах.}
    Dr := []; {Множество согласных звонких букв, которые присутствуют более, чем в одном слове.}
    for i := 1 to Len do {Перебор всех символов строки.}
      {Если символ не является разделителем, значит он принадлежит слову.}
      if not (S[i] in D) then
      begin
        if S[i] in Da then
          Dw := Dw + [S[i]]; {Добавляем символ во множество звонких согласных букв слова.}
        if (i = Len) or (S[i + 1] in D) then {Если обнаружен конец слова.}
        begin
          {Dw * Ds - это множество звонких согласных букв, которые есть в текущем
          слове и которые присутствуют в каких-то словах, обработанных ранее.
          Т. е., Dw * Ds - это, как раз, часть множества звонких согласных букв,
          которые присутствуют более, чем в одном слове. Так, обрабатывая слово
          за словом мы соберём сведения о всех таких буквах в тексте.}
          Dr := Dr + Dw * Ds;
          Ds := Ds + Dw;
          Dw := [];
        end;
      end;
 
    {Распечатка звонких согласных букв, которые входят более, чем в одно слово.}
    if Dr = [] then
      Writeln('Нет ни одной буквы, которая входила бы более, чем в одно слово.')
    else
    begin
      Writeln('Перечень звонких согласных букв, которые входят более, чем в одно слово:');
      for Ch := 'Б' to 'р' do
        if Ch in Dr then
          Write(Ch, ' ');
      Writeln;
    end;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

program Project1;
 
{Дан текст на русском языке. Напечатать в алфавитном порядке все звонкие
согласные буквы, которые входят более, чем в одно слово.
 
Примеры:
1.
Дана строка: 'бвгаи, джзое, лмн, раиое'
Ответ: Нет ни одной буквы, которая входила бы более, чем в одно слово.
2.
Дана строка: 'бвгдаи, джзраи, лмн, раиое'
Ответ: Перечень звонких согласных букв, которые входят более,
  чем в одно слово: 'Д', 'Р'.}
 
{Перевод букв строки в верхний регистр.}
procedure UpCaseRu(var S : String);
var
  i : Integer;
begin
  for i := 1 to Length(S) do
    if S[i] in ['а'..'п'] then
      S[i] := Chr(Ord(S[i]) - 32)
    else if s[i] in ['р'..'я'] then
      S[i] := Chr(Ord(S[i]) - 80)
    else if S[i] = 'ё' then
      S[i]:='Ё'
    else
      S[i] := UpCase(S[i]);
end;
 
const
  {Множество разделителей слов.}
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  {Множество звонких согласных букв.}
  Da = ['Б', 'В', 'Г', 'Д', 'Ж', 'З', 'Л', 'М', 'Н', 'Р'];
var
  S : String;
  Dw, Ds, Dr : set of Char;
  Ch : Char;
  i, Len : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    UpCaseRu(S); {Перевод букв строки в верхний регистр.}
 
    Len := Length(S);
    Dw := []; {Множество согласных звонких букв в текущем слове.}
    Ds := []; {Множество согласных звонких букв, обнаруженных в предыдущих словах.}
    Dr := []; {Множество согласных звонких букв, которые присутствуют более, чем в одном слове.}
    for i := 1 to Len do {Перебор всех символов строки.}
      {Если символ не является разделителем, значит он принадлежит слову.}
      if not (S[i] in D) then
      begin
        if S[i] in Da then
          Dw := Dw + [S[i]]; {Добавляем символ во множество звонких согласных букв слова.}
        if (i = Len) or (S[i + 1] in D) then {Если обнаружен конец слова.}
        begin
          {Dw * Ds - это множество звонких согласных букв, которые есть в текущем
          слове и которые присутствуют в каких-то словах, обработанных ранее.
          Т. е., Dw * Ds - это, как раз, часть множества звонких согласных букв,
          которые присутствуют более, чем в одном слове. Так, обрабатывая слово
          за словом мы соберём сведения о всех таких буквах в тексте.}
          Dr := Dr + Dw * Ds;
          Ds := Ds + Dw;
          Dw := [];
        end;
      end;
 
    {Распечатка звонких согласных букв, которые входят более, чем в одно слово.}
    if Dr = [] then
      Writeln('Нет ни одной буквы, которая входила бы более, чем в одно слово.')
    else
    begin
      Writeln('Перечень звонких согласных букв, которые входят более, чем в одно слово:');
      for Ch := 'Б' to 'Р' do
        if Ch in Dr then
          Write(Ch, ' ');
      Writeln;
    end;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.