Множества в паскале

[DaBuble]

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

[Stilet]

Ну а под множеством строка понимается или именно set паскалевский?

[DaBuble]

да да именно строка String

[Stilet]

Тогда так:

var s:string;i:integer;
begin
 s:='Та самая строка';
 for i:=1 to length(s) do
  if s[i] in ['D'..'I] then write(s[i]);
...

[DaBuble]

Спасибо вам