Дано целое число N и набор из N целых чисел. Найти номер последнего экстремального( то есть минимального или максимального) элемента из данного набора — Pascal(Паскаль)

uses crt;
var a:array[1..100]of integer;
min,max,n,i:integer;
 
begin
 clrscr;
 write('N -> ');
 readln(n);
 write('Массив -> ');
 for i:=1 to n do read(a[i]);
 readln;
 min:=1;
 max:=2;
 for i:=1 to n do if a[i]>=a[max] then max:=i else if a[i]<=a[min] then min:=i;
 write('Индекс экстремального элемента - ');
 if min > max then writeln(min) else writeln(max);
 readln;
end.