Дан целочисленный массив N. Найти его среднее арифметическое элементов, которые принадлежать отрезку (0,1). В Паскале Помогите, это мой зачет!

uses crt;

var x,sum:real;
i,count:byte;

Begin clrscr;
for i:=1 to n do
Begin
X[i]:=Random(11)-5.;
Write(X[i]:7:2);
end;
Writeln;

Sum:=0;
Count:=0;

for i:=1 to n do if ((0