ПОМОГИТЕЕЕЕЕЕЕЕЕЕ
PASCAL ABCNET
дан массив найдите среднее арифметическое max и min элемента .вывести значения и индексы этих элементов

P.S.

1. Массив набирается вручную2. При наличии одинаковых чисел программа может несколько раз вывести Минимально значение или Максимальное.

program number1;

var a: array [1..5] of integer;

i,min,max: integer;

Begin

writeln('Введите 5 значений массива');

for i:=1 to 5 do

readln(a[i]);

min:=a[1];

max:=a[1];

for i:=1 to 5 do

Begin

if (a[i]>=max) then max:=a[i];

if (a[i]<=min) then min:=a[i];

End;

for i:=1 to 5 do

Begin

if max=a[i] then

Begin

 writeln('Максимальное значение: ',a[i],' [',i,']');

 max:=a[i];

End;

if min=a[i] then  

 Begin

 writeln('Минимальное значение: ',a[i],' [',i,']');

 min:=a[i];

 End;

End;

writeln('Среднее арифметическое: ',(min+max)/2);

End.