Подскажите пожалуйста, где ошибка. Опции

[QRFail]

Запускаю код, при x=2 почему то решает то что в (x>1)and(x<2) Почему так? Может я че то не правильно понимаю???

 uses crt;
var a,x1,x2,dx,x,y:real;
begin
clrscr;
  a:=2.3;
  x1:=0.2;
  x2:=8;
  dx:=0.2;
  x:=x1;
 
 
  Writeln('x     |     y');
  Writeln('---------');
  while x<x2 do
        begin
           If x=2 then  writeln('Gbplf') ;
          If  x=1 then
                      begin
                        y:=1.5*sqr(cos(x));
                      writeln(x,' | ',y);
                      end
                        else
          If  (x>1)and(x<2)  then
                                  begin
                                    y:=1.8*a*x;
                                    writeln(x,' | ',y);
                                    end
                                    else
          If  x>2 then
                      begin
                        y:=(sqr(x-2))+6;
                        writeln(x,' | ',y);
                      end
                        else  writeln('Не удовлетворяет условию');
 
 
 
          x:=x+dx;
 
        end;
 
 
 
 
end.

x=2 игонорирует. Если шаг dx поставить 0,3 все верно решает.

[QRFail]

применил for вместо while. помогло.