Напишите программу, которая находит все различные цифры в символьной строке - Pascal ABC

Формулировка задачи:

Напишите программу, которая находит все различные цифры в символьной строке.

Входные данные

На вход программе подаётся символьная строка.

Выходные данные

Программа должна вывести в одной строке все различные цифры, которые встречаются в исходной строке, в порядке возрастания. Если в строке нет цифр, нужно вывести слово 'NO'.

Примеры:

входные данные

ab1n32kz2

выходные данные

123

входные данные

asdasd

выходные данные

Решение задачи: «Напишите программу, которая находит все различные цифры в символьной строке»

Листинг программы

var s: string;
    i: integer;
    c: char;
    m: set of char;
begin
  m := [];
  readln(s);
  for i := 1 to length(s) do if s[i] in ['0'..'9'] then include(m, s[i]);
  if m = []
    then write('NO')
    else for c := '0' to '9' do if c in m then write(c)
end.

Объяснение кода листинга программы

Переменная s объявлена как строка (string).
Переменная i объявлена как целое число (integer).
Переменная c объявлена как символ (char).
Переменная m объявлена как множество символов (set of char).
Строка s считывается с помощью функции readln().
В цикле for перебираются все символы строки s.
Если текущий символ является цифрой от 0 до 9, то он добавляется в множество m.
После завершения цикла for, проверяется, пусто ли множество m.
Если множество m пусто, выводится сообщение NO.
Если множество m не пусто, для каждого символа c из множества m выводится его значение.