Программа, позволяющая выяснить можно ли из цифр натурального числа М образовать число, большее М - Pascal ABC

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

Помогите, пожалуйста, написать программу. Условие задачи: Составить программу, позволяющую выяснить, можно ли из цифр натурального числа М образовать число, большее М.

Решение задачи: «Программа, позволяющая выяснить можно ли из цифр натурального числа М образовать число, большее М»

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

 var m,a,d1,d2:integer;
    f:boolean;
begin
  Write('Введите натуральное число m=');
  ReadLn(m);
  if m>11 then begin
    d1:=-1;
    repeat
      d2:=m mod 10;
      f:=d2<d1;
      d1:=d2;
      m:=m div 10
    until f or (m=0);
  end;
  if f then write('Можно')
  else write('Нельзя');
end.

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

Ввод натурального числа М
Проверка: если М больше 11, то выполнение блока кода
Переменная d1 инициализируется как -1
Запуск цикла, который выполняется до тех пор, пока d2 меньше d1 или М равно 0
В каждой итерации цикла переменная d2 принимает остаток от деления М на 10
Переменная f устанавливается в значение d2 меньше d1
Значение d1 обновляется значением d2
М делится на 10
После выхода из цикла, если f равно true, то вывод Можно, иначе вывод Нельзя