Множество. Построить множество, элементами которого являются встречающиеся в последовательности цифры от 0 до 9

Program primer2;{заголовок программы}
Type{блок описания типов}
mn=Set of Char;{описание множеств}
Var{блок описания переменных}
s,c:string;{переменные строкового типа}
i:integer;{переменная целого типа}
mm,st:mn;
f:boolean;{переменная логического типа}
begin{начало тело программы}
c:='0123456789';{последовательности цифр встречающихся во множестве}
mm:=[];{множество на 1 шаге}
for i:=1 to length(c)do{цикл для ввода элементов множеств}
mm:=mm+[c[i]];{заполнение множества элементами}
writeln('введите строку символов');{вывод подсказки}
Readln(s);{вывод элемента множества}
st:=[];{множество на 1 шаге}
for i:=1 to length(s)do {цикл для формирования множества}
if s[i]in mm then {оператор определяющий
begin{начало тело цикла}
st:=st+[s[i]];
writeln(s[i]);{вывод результата}
f:=true;{}
end;{конец цикла}
if not(f) then {условный оператор для вывода }
Writeln('Множество пусто');{вывод результата}
end.{конец программы}

const digits = ['0'..'9']; { множество цифр для сравнения}
var
  mn : set of char; { множество для результата}
  s: string; ch : char; i : byte;
begin
  writeln('Input string with numeric : '); readln(s); { подсказка и ввод последовательности символов }
  mn:=[]; { начальное }
  for i:=1 to length(s) do if s[i] in digits then mn:=mn+[s[i]]; { включаем в результат, только цифры}
  for ch:='0' to '9' do if ch in mn then write(ch:2); {если из цифр чтото есть в результате, то печатаем}
  readln;
end.