Посчитать число компонентов целого массива из 10 элементов лежащих на отрезке [a,b] — Pascal(Паскаль)

Program Lab10;
Var x:array[1..10] of integer;
a,b,counter,i:integer;
Begin
Write('a=');
readln(a);
Write('b=');
readln(b);
Writeln;
for i:=1to 10 do
Begin
Write('x[',i:2,']=');
readln(x[i]);
end;
Writeln('counter=');
if a>b then
if x[i]<=a then
if x[i]>=b then
counter:=counter+1;
if a<b then
if x[i]<=b then
if x[i]>=a then
counter:=counter+1;
Writeln('x[',i,']=',x[i]:2);
readln(x[i]);
end.