Дан массив, содержащий несколько максимальных элементов. найти порядковый номер последнего из них.

Const
  nm = 50;{максимальная длина массива}

var
  i, n, max, p: integer;
  a: array[1..nm] of integer;

begin
  Write('Введите количество элементов в массиве: ');
  Readln(n);
  max := -32768;
  Write('Введите элементы массива через пробел ');
  for i := 1 to n do
  begin
    Read(a[i]);
    if max <= a[i] then
    begin
      max := a[i]; p := i
    end
  end;
  Writeln('Последний максимальный элемент ', max, ' имеет номер ', p)
end.

Тестовое решение:

Введите количество элементов в массиве: 10
Введите элементы массива через пробел 4 -5 6 -9 1 0 6 3 -1 5
Последний максимальный элемент 6 имеет номер 7