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

Program zad; var i,m: longint; sum,count: real; A: array [1… n] of longint; beginsum: =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]>=2) and (A[i] <= 8) then begin sum: =sum+A[i]; count: =count+1 end; sum: =sum/count; if (sum<0) then writeln ('Элементов удовлетворяющих условию нет') else writeln (sum); end.P.S. Переменную n во всем тексте программы следует заменить на конкретное натуральное число!