D10. Min-max расстояние

Задана последовательность из n целых чисел. Выведите расстояние между первым из минимумов и последним из максимумов в этой последовательности.
----------------------------------------------------
var
a:array[1..100000]of longint;
n,i,j,b:longint;
min,mini,max,maxi:longint;
begin
 readln(n);
 if n=1 then writeln(0)else begin
  for i:= 1 to n do
   read(a[i]);

   min:=a[1];
   max:=a[1];
   mini:=1;
   maxi:=1;
  for i:= 1 to n do begin
   if a[i]>=max then begin
    max:=a[i];
    maxi:=i;
   end;
   if a[i]<min then begin
    min:=a[i];
    mini:=i;
   end;
  end;
  b:=abs(maxi-mini);

 writeln(b);
end;

 end.