Дан массив из N чисел. Отыскать среднее арифметическое частей, удовлетворяющих условию

Program zad;
var i,m:longint;     
     sum,count:real;   
     A:array [1..n] of longint;

begin

sum:=0; count:=0;

for i:=1 to n do
                   begin read(m); A[i]:=m end;

for i:=1 to n do
                  if (A[i]gt;=2) and (A[i]lt;=8)                     
                     then begin sum:=sum+A[i]; count:=count+1 end;

sum:=sum/count;

if (sumlt;0)     
  then  writeln('Частей удовлетворяющих условию нет')
  else writeln(sum);

end.

P.S. Переменную n во всем тексте программы следует заменить на конкретное естественное число!