Определить порядковые номера максимальной и минимальной цифр числа - Turbo Pascal

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

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

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

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

  WriteLn('max=',max,' nomer=',1+nom-nmax);
  WriteLn('min=',min,' nomer=',1+nom-nmin);

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

В данном коде происходит определение максимальной и минимальной цифр числа.

Переменная nom содержит число, для которого необходимо определить максимальную и минимальную цифры.
Переменная nmax содержит порядковый номер максимальной цифры числа nom.
Переменная nmin содержит порядковый номер минимальной цифры числа nom.
Функция WriteLn() используется для вывода результатов на экран.
Код выводит на экран значения переменных nmax и nmin, а также порядковый номер максимальной и минимальной цифры числа nom.