Поиск максимального элемента массива - Pascal (86360)

Формулировка задачи:

Добрый день, уважаемые формучане. Суть программы я думаю ясна.

var
i,max,a,position:integer;
mass:array [1..10] of integer;
begin
for i:=1 to 10 do
    begin
    writeln('Введите значение элемента массива: ');
    readln(a);
    mass[i]:=a;
    end;
max:=mass[1];
position:=1;
for i:=1 to 10 do
    begin
    if max<mass[i] then
    begin
    max:=mass[i];
    position:=i;
    end;
    end;
writeln('Максимальный элемент массива: ',max);
writeln('Индекс максимального значения: ',position);
end.

Преподователь попросил модифицировать код так, чтобы индекс максимального значения был на последнем повторе. К примеру идет массив: 1 1 4 1 1 4 1 1 1 4 Код должен вывести: Максимальный элемент массива: 4 Индекс максимального значения: 10 Если запустить программу она выведет нам макс элемент - 4 индекс 3 что нужно поменять в коде, подскажите пожалуйста, заранее спасибо

Решение задачи: «Поиск максимального элемента массива»

textual
                            Листинг программы 
                        
                             if max<=mass[i] then