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

program MinMax;
var max,min,maxp,minp,a,a1,poz:integer;
begin
Write('Введите число:');
ReadLn(a);
min:=9;
max:=0;
minp:=1;
maxp:=1;
poz:=0;
While a>0 do
  begin
   a1:=a mod 10;
    poz:=poz+1;
   if a1>max then
    begin
     max:=a1;
     maxp:=poz;
    end;
   if a1<=min then
    begin
     min:=a1;
     minp:=poz;
    end;
   a:=a div 10;
 end;
if maxp>minp then WriteLn('Максимальное число стоит левее чем минимальное')
             else WriteLn('Минималmное  число стоит левее чем максимальное')
end.