Сколько элементов массива превышают среднее арифметическое значение максимального и минимального элементов?) на паскале

vara:array[1..n] of integer;i, min, max,k:integer;mid:real;beginwrite('Кол-во элементов массива: ');readln(n); for i:=1 to n doreadln(a[i]);max:=0; k:=0;for i:=1 to n doif a[i]> max then max:=a[i];min:=max;for i:=1 to n doif a[i]<min then min:=a[i];mid:=(max+min)/2for i:=1 to n doif a[i]>mid then k:=k+1;writeln(k,' чисел');end.