Уменьшить наибольший элемент массива на величину индекса, а малый элемент прирастить

По задачке нам нужно найти последующие величины: наибольший элемент, индекс элементов, что является их порядковым номером, а также среднее арифметическое.
Массив одномерный, так что это просто строчка чисел. Назовем его буковкой А и дадим ему длину, одинаковую 10:
А : array [1..10] of integer;
Как именно обязаны быть заполнены его ячейки в задаче не обозначено, потому наполняем его случайными числами:
for i:integer := 1 to 10 do
A[i] := random(100);
Проверим все элементы и найдем наибольший элемент, а также среднее арифметическое.
for i:integer := 1 to 10 do
begin
if (A[i] gt; max) then
max := A[i];
max_i := i;
sum := sum + A[i];
end;
sr_ar := sum / 10;
for i:integer := 1 to 10 do
A[max_i] := A[max_i] - max_i;