Вопрос Помогите с программированием 9 класс (PascalABC)

[SGAPRO]

Дан одномерный массив (50 элементов) случайных чисел в диапазоне от 10 до 50.
Найти и вывести номер и значение максимального элемента, номер и значение минимального элемента, среднее арифметическое всех чисел стоящих на четным местах.
PascalABC

 

[Петрп]

for i:=1 to 50 do begin a:=random(61)+10; write(a,) end; writeln; вот массив, остальное сам