Если цифры числа одинаковы - уменьшить заданное число на 1, иначе заменить меньшую цифру нулем - Free Pascal

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

Народ, выручите пожалуйста, я немного дуб в этом=(( Такое вот задание: Дано натуральное двухзначное число. Если цифры в нем одинаковы, то уменьшить заданное число на 1; если цифры в нем разные, то меньшую из них заменить в заданном числе нулём.

Решение задачи: «Если цифры числа одинаковы - уменьшить заданное число на 1, иначе заменить меньшую цифру нулем»

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

var N : integer;
 begin
  repeat
   Writeln('Введите двузначное число.');
   Write(' N= '); Readln(N);
   if (N>99) or (N<1) then Writeln('N должно быть двузначным');
  until (N>=10) and (N<=99);
 ...

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

В данном коде используется цикл repeat-until для ввода двузначного числа N и проверки его на соответствие диапазону от 10 до 99. При этом, если число не двузначное, выводится сообщение об ошибке. Далее, предполагается, что код продолжается и обрабатывает значение N. Однако, в предоставленном отрывке кода нет логики для обработки самого числа N.