Дано натуральное число, в котором все цифры различны. Найти порядковые номера максимальной цифры( от конца и от начала) и минимальной цифры( от конца и от начала) — Pascal(Паскаль)

uses crt;
var n,m:longint;
    k,kc,mx,mn,imx,imn:byte;
begin
clrscr;
write('n=');
readln(n);
m:=n;
{посчитаем сколько цифр в числе}
kc:=0;
while m>0 do
 begin
  m:=m div 10;
  kc:=kc+1;
 end;
m:=n;
mn:=9;mx:=0;
imx:=1;imn:=1;
kc:=0;
while m>0 do
 begin
  k:=m mod 10;
  kc:=kc+1;
  if k<mn then
   begin
    mn:=k;
    imn:=kc;
   end;
  if k>mx then
   begin
    mx:=k;
    imx:=kc;
   end;
  m:=m div 10;
 end;
writeln('Минимальная цифра=',mn,' ее номер с конца=',imn,' с начала=',kc-imn+1);
writeln('Максимальная цифра=',mx,' ее номер с конца=',imx,' с начала=',kc-imx+1);
readln
end.