Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности буквы от D до I.

// PascalABC.NET 3.0, сборка 1088
var
  MySet:set of char;
  s:string;
  i:integer;

begin
  Write(Введите строку: ); Readln(s);
  for i:=1 to Length(s) do
    if s[i] in [D..I] then Include(MySet,s[i]);
  Writeln(Состав множества: ,MySet)
end.

Тестовое решение:
Введите строку: HAPPY BIRTDAY TO YOU!
Состав множества: {H,I,D}