Программа с постусловием не правильно считает результат

{************************************************}
{Программа: Tab, лаб.раб. №5, вар.15             }
{Цель:табулирование функции y=f(x) с помощью     }
{     оператора цикла с постусловием.            }
{Описание параметров и переменных:               }
{x - аргумент функции;                           }
{x0,xn - начальное и конечное значения аргумента;}
{hx - шаг изменения аргумента;                   }
{y - значение функции.                           }
{Требуемые подпрограммы: нет.                    }
{Программист: **********                        }
{Дата написания: 07 иая 2016 г.                  }
{************************************************}
Program Tab;
  Var
     hx,x,x0,xn,y:Real;
  Begin {Tab}
     {Ввод и эхо-печать исходных данных}
     Writeln('ВНИМАНИЕ! При x<-Pi/2(-1.5707) и x>0 функция f(x) не определена');
     Write('x0=');
     Read (x0);
     Write('hx=');
     Read (hx);
     Write('xn=');
     Read (xn);
     Writeln('X0=',x0,' HX=',hx,' XN=',xn);
     {Табулирование функции}
     x:=x0;
     repeat {начало цикла}
     if(x<-Pi/2) or (x>0) then
       Writeln('При x=',x:6:4,' функция f(x) не определена')
       else
         begin
          if (x>=-Pi/2) or (x<=-Pi/4) then y:=2*sqr(sin(Pi/4-x/2))
            else if (x>-Pi/4) or (x<-Pi/8) then y:=(1-cos(2*x))/sin(2*x)
              else if (x>=-Pi/8) or (x<=0) then y:=x/(2+cos(x));
          Writeln('X=',x,' Y=',y);{эхо-печать}
         end;
       x:=x+hx
     until x>xn+hx/2 {конец цикла}
End.{Tab}

if (x>=-Pi/2) and (x<=-Pi/4) then

  Write('X=',x,' Y=');
  if (x<Pi/2) or (x>0) then WriteLn('не определено')
  else if x<=-Pi/4 then WriteLn(2*Sqr(Sin(Pi/4-x/2)))
  else if x<=-Pi/8 then WriteLn((1-Cos(2*x))/Sin(2*x))
  else  { x<=0 }        WriteLn(x/(2+Cos(x)));