Найти цифры в строке

[grongost]

Задача в delphi.

Дана строка, состоящая из букв, цифр и знаков. Выписать из строки
только цифры (в порядке возрастания, не повторяясь).

Задачу надо решить с применением множеств.
Нужно писать в форме.

[Serge_Bliznykov]

ну это же совсем просто (Ваша задача "заточена" под использование множеств):

var s : string;
  i : integer; 
  ch : char;
  Digits : set of char;
begin
  Readln(s); {ввод строки}

  Digits := [];
  {обработка строки}
  for i:=1 to length(s) do
    if s[i] in ['0'..'9'] then Include(Digits, s[i]);

  {вывод результатов (содержимого множества Digits}
   for ch := '0' to '9' do
     if ch in Digits then
       Write(ch,' ')
   WriteLn;

  Readln;
end.