Дан массив, содержащий несколько максимальных элементов. Найти порядковый номер последнего из них. ПОМОГИТЕ ПРОШУУУУУ

Замечание: если в операторе if max <= a[i] then из условия убрать знак равенства, будет найден ПЕРВЫЙ из максимальных элементов.

огрооомное спасибо)

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