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

var n,n1,k,k1,c,mn,imn,mx,imx:integer;
begin
write('Введите натуральное число из разных цифр больше 9 n=');
readln(n);
//узнаем сколько цифр в числе
n1:=n;
k:=0;
while n1>0 do
 begin
  n1:=n1 div 10;
  k:=k+1;
 end;
mn:=9;
mx:=0;
k1:=0;
while n>0 do
 begin
  c:=n mod 10;
  k1:=k1+1;
  if c<mn then
   begin
    mn:=c;
    imn:=k1;
   end;
  if c>mx then
   begin
    mx:=c;
    imx:=k1;
   end;
  n:=n div 10;
 end;
writeln('Минимальная цифра=',mn,' ее номер справа=',imn,' слева=',k-imn+1);
writeln('Максимальная цифра=',mx,' ее номер справа=',imx,' слева=',k-imx+1);
end.