дано натуральное число, в котором все цифры различны. Определить:а) порядковые номера двух его максимальных цифр, считая номера: от конца числа, от начала числа. б) порядковые номера двух его минимальных цифр, считая номера: от конца числа, от начала числа. Во всех задачах два оператора цикла не использовать — Pascal(Паскаль)

uses crt;
var n:1..maxlongint;
    k,mx1,mx2:byte;
begin
clrscr;
repeat
write('Введите натуральное число от 10 до ',maxlongint,' n=');
readln(n);
until (n>=10)and(n<=maxlongint);
mx1:=0;
mx2:=1;
while n>0 do
 begin
  k:=n mod 10;
  if (k>mx1)and(k<mx2) then mx1:=k
  else if k>mx2 then
   begin
    mx1:=mx2;
    mx2:=k;
   end;
  n:=n div 10;
 end;
write('Две наибольшие цифры ',mx1,' ',mx2);
readln
end.