Паскаль,помогите! В массиве 10 элементов, 1 ) найти наибольшее значение 2)наименьшее 3)среднее значение

1)max:=a[1];
for n:=2 to 10 do
if a[n]>max then max:=a[n];
writeln(max);
2)min:=a[1];
for n:=2 to 10 do
if a[n]