Выяснить, из какого числа разных цифр состоит целое положительное число N - Turbo Pascal

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

Из какого числа разных цифр состоит целое положительное число N. Для выделения каждой цифры, составляющей число N, целесообразно воспользоваться алгоритмом последовательного определения остатка от деления N на основание 10. Например, пусть N=172; 172/10=17 (2 в остатке), 17/10=1 (7 в остатке). Цифры остатков 2,7,1-это разные цифры, составляющие число 172.

Решение задачи: «Выяснить, из какого числа разных цифр состоит целое положительное число N»

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

var n, k: integer;
    m: set of byte;
begin
  repeat
    write('n >= 0;  n = ');
    readln(n)
  until n >= 0;
  m := [];
  k := 0;
  repeat
    if not ((n mod 10) in m) then begin
        Inc(k);
        include(m, n mod 10);
    end;
    n := n div 10
  until n = 0;
  write('Количество различных цифр: ', k);
  readln
end.

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

Переменная n инициализируется как 0.
В цикле повторяется чтение числа от пользователя и его вывод на экран.
Переменная m инициализируется как множество байтов.
Переменная k инициализируется как 0.
В цикле повторяется проверка, состоит ли число n только из одной цифры. Если это так, то значение переменной k увеличивается на 1, и цифра добавляется в множество m.
Число n делится на 10, и результат сравнивается с предыдущим значением n. Если они равны, значит, число состоит из одной цифры, и значение переменной k увеличивается на 1.
Цикл продолжается до тех пор, пока n не станет равным 0.
По окончании цикла выводится количество различных цифр в числе.
Программа завершается после ввода и обработки всех данных.