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

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