Требуется написать программу подсчета числа разных элементов одномерного массива 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.