Множественный тип, готовая программа

program Project4;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
 
const
  //Множество разделителей слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  //Множество согласных букв.
  Db =
  [
    'B', 'C', 'D', 'F', 'G', 'H',
    'J', 'K', 'L', 'M', 'N', 'P', 'Q', 'R',
    'S', 'T', 'V', 'W', 'X', 'Z',
    'b', 'c', 'd', 'f', 'g', 'h',
    'j', 'k', 'l', 'm', 'n', 'p', 'q', 'r',
    's', 't', 'v', 'w', 'x', 'z'];
var
  S : String;
  i, j, Len, Pos1, CntW : Integer;
  DRes, DTmp : set of Char;
  Ch : Char;
begin
  repeat
    Writeln('input string:');
    Readln(S);
 
    Len := Length(S);
    //Результирующее множество.
    DRes := [];
    //Множество согласных букв в очередном нечётном слове.
    DTmp := [];
    //Счётчик слов.
    CntW := 0;
    //Позиция начала слова.
    Pos1 := 0;
    for i := 1 to Len do begin
      //Пропускаем разделители.
      if S[i] in D then Continue;
      //Отслеживаем начало слова.
      if (i = 1) or (S[i - 1] in D) then Pos1 := i;
      //Отслеживаем конец слова.
      if (i = Len) or (S[i + 1] in D) then begin
        Inc(CntW);
        //Если слово чётное - пропускаем итерацию.
        if CntW mod 2 = 0 then Continue;
        //Составляем множество согласных букв очередного нечётного слова.
        for j := Pos1 to i do
          if S[j] in Db then DTmp := DTmp + [ S[j] ]
        ;
        //Инициализируем DRes на первом найденном нечётном слове.
        if CntW = 1 then DRes := DTmp;
        //Множество согласных букв, которые присутствуют в каждом нечётном слове.
        DRes := DRes * DTmp;
        //Если DRes оказалось пустым - выходим из цикла.
        if DRes = [] then Break;
        //Обнуление множества.
        DTmp := [];
      end;
    end;
 
    if DRes = [] then begin
      Writeln('No consonant letters found.');
    end else begin
      Writeln('Set of consonant letters.');
      for Ch := #0 to #255 do begin
        if Ch in DRes then Writeln(Ch);
      end;
    end;

uses Classes;
......................
var t:TStringList;