Viết chương trình tính trung bình cộng của các số nằm trong khoảng (a,b) trong mảng

VAR x:ARRAY[1..100] OF REAL;
a,b,s:REAL;
i,d,n:INTEGER;
BEGIN
    s:=0;d:=0;
Write('Nhap n: ');
Readln(n);                 
Write('Nhap a, b : ');
readln(a,b);
FOR i:=1 TO n DO
BEGIN
Write('Nhap x',i,' : ');
readln(x[i]);
END;
FOR i:=1 TO n DO
IF (x[i] > a) AND (x[i] < b)
THEN BEGIN inc(d); s:=s+x[i]; END;
Write('TBC = ',s/d):2:5;
readln;
END.