паскаль. Указать позицию последнего экстремального элемента (т.е. минимального или максимального)

[vykker]

Дан массив вещественных чисел. Указать позицию последнего экстремального элемента (т.е. минимального или максимального)

вот нахождение мах и мин
а как последнего экстримального не представляю

var
A:array [1..100] of integer;
max,min,n,i:integer;

begin
write('n=');
readln (n);

for i:=1 to n do
begin
read (a[i]);
write(a[i],' ');

end;

max:=a[1];
for i:=1 to n do
if a[i]>max
then max:=a[i];

writeln;
write ('max=', max);

min:=a[1];
for i:=1 to n do
if a[i]<min
then min:=a[i];

writeln;
write ('min=', min);
end.

[[CODER]]

Если я правильно понял то нужно сравнить индексы мин. и макс. элем., больший из них будет последним экстремальным.
для удаления элемента нужно сместить все элементы массива у уменьшить размер массива
удаление элемента массива с индексом х массива размером n

fot i:=x to n-1 do
     mas[i]:=mas[i+1];

[vykker]

если чесно я ничего не понял
как это будет выглядеть полностью?

[Скандербег]

"Указать позицию...". Т.е. найти положение (индекс) экстремального значения элемента в массиве.

var
  A:array [1..100] of integer;
  max, min, n, i, maxInd, minInd :integer;

begin
  write('n=');
  readln (n);

  for i := 1 to n do begin
    read(a[i]);
    write(a[i],' ');
  end;

  maxInd := 0; 
  minInd := 0;
  max := a[1];
  min := a[1];
  for i:=1 to n do begin
   if a[i] > max then begin
     max := a[i];
     maxInd := I;
   end;

   if a[i] < min then begin
     min := a[i];
     minInd := I
   end;
  end;

  writeln; 
  if maxInd > minInd then //индекс какого экстремального значения больше, тот и выводится на экран
    writeln('index (max) = ', maxInd) 
  else
    writeln('index (min) = ', minInd);
end.

[vykker]

спасибо!!!