Помогите с задачей(Pascal)

[КуДрЯ]

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

[Sazary]

uses crt;
var
n,i,k,max,maxi,min,mini : integer;
begin
clrscr;
write('Vvedite n: ');
readln(n);    
max := n mod 10;  { начальное значение максимума - первая цифра справа }
min := n mod 10;  { аналогично для минимальной }
k := 0;  { счетчик цифр }
maxi := k; { maxi - порядковый номер максимума (справа) }
mini := k;  { аналогично для минимума }
while n>0 do    { пока не достигли "конца числа" }
  begin
  i := n mod 10;  { i - текущая цифра }
  inc(k);    { увеличиваем счетчик цифр }
  if i >= max then  { если текущая цифра больше максимума... }
    begin
    max := i;     {...то приравниваем максимум к этой цифре }
    maxi := k;   { и запоминаем его положение справа }
    end;

  if i <= min then  { аналогично для минимума }
    begin
    min := i;
    mini := k;
    end;
  n := n div 10;  
  end;
writeln('Maximum= ',max);  { выводим максимум }
writeln('Minimum= ',min);   { выводим минимум }
if maxi > mini then          { если максимум левее... }
 writeln('Maximalnaya levee')
else if maxi < mini then          { если минимум левее... }
 writeln('Minimalnaya levee')
else writeln('Sovpadayut');   
readln;
end.

[КуДрЯ]

Спасибо большое за програмку.Проверил работает.Какие то пояснения можно,а то зашищать же надо.Заранее спасибо

[Sazary]

КуДрЯ Добавил комменты в листинг

[КуДрЯ]

Спасибо!!!!!!!!!!!