Проблема с заданием условия для IF

program func;
var x,y: real;
const
    Min = -10;
    Max = 7;
    Shag = 0.3;
    Error = ' f(x) - функция не определена';
begin
x:=Min;
// первая функция
    while x<-8 do
    begin
        if (abs(2*x)<=1) and (x>0) then
            begin
                y:= 9/cos(2*x) - x/(ln(x)/ln(10));
                writeln ('x=',x,' y=',y:5:1);
            end
            else writeln ('x=',x:5:1,Error);
    x:=x+Shag;
    end;
// вторая функция  
    while x<0 do
    begin
        if (abs(2*x)<=1) and (x>0) then
            begin
                y:= (exp(ln(x) * 1/3))/(cos(2*x))-(exp(ln(x) * 0.1*x)) / (sqr(x));
                writeln ('x=',x,' y=',y:5:1);
            end 
            else writeln ('x=',x:5:1,Error);
    x:=x+Shag;
    end;
// третья функция
    while x<5 do
    begin
        if (abs(x)<=1) and (x>0) then
            begin
                y:= (-x)*(sin(x))+(exp(ln(x)*0.1*x))/(sin(x)/cos(x));
                writeln ('x=',x:5:1,' y=',y:5:1);
            end 
            else writeln ('x=',x:5:1,Error);
    x:=x+Shag;
    end;
// четвертая функция
    while x<=Max do
    begin
        if (x>0) then
                begin
                    y:= ln(x)+sqr(x);
                    writeln ('x=',x:5:1,' y=',y:5:1);
                end 
                else writeln ('x=',x:5:1,Error);
    x:=x+Shag;
    end;
readln;
end.