Требуется написать программу подсчета числа разных элементов одномерного массива a(q) принадлежащий отрезку (r..p). (паскаль)

Var x,i,n,p,r,kol:integer;beginread(n,r,p);for i:=1 to n do begin   read(x);   if (x>r) and (x<p) then inc(kol)   end;writeln(kol);end.