Вывести номер октанта, к которому принадлежит точка (ошибка в коде)

var x,y:real;
begin
writeln('Введите координаты точки');
read(x,y);
if(x=0)and(y=0) then write('Точка на пересечении осей')
else if(x=0) then write('Точка на оси Y')
else if(y=0) then write('Точка на оси X')
else if(x>0)and(y>0) then write('Четверть I')
else if(x<0)and(y>0) then write('Четверть II')
else if(x<0)and(y<0) then write('Четверть III')
else if(x>0)and(y<0) then write('Четверть VI')
end.

var x,y,z : real;
begin
write('Введите координаты точки через пробел: ');
readln(x,y,z);
 
if((x = 0) and (y = 0) and (z = 0)) writeln('Точка на пересечении осей');
if((x = 0) and (y = 0) and (z <> 0)) writeln('Точка на оси Z');
if((x = 0) and (y <> 0) and (z = 0)) writeln('Точка на оси Y');
if((x <> 0) and (y = 0) and (z = 0)) writeln('Точка на оси X');
if((x = 0) and (y*z <> 0)) writeln('Точка на плоскости Oyz');
if((y = 0) and (x*z <> 0)) writeln('Точка на плоскости Oxz');
if((z = 0) and (x*y <> 0)) writeln('Точка на плоскости Oxy');
if((x > 0) and (y > 0) and (z > 0)) writeln('Точка в 1 октанте');
if((x < 0) and (y > 0) and (z > 0)) writeln('Точка во 2 октанте');
if((x < 0) and (y < 0) and (z > 0)) writeln('Точка в 3 октанте');
if((x > 0) and (y < 0) and (z > 0)) writeln('Точка в 4 октанте');
if((x > 0) and (y > 0) and (z < 0)) writeln('Точка в 5 октанте');
if((x < 0) and (y > 0) and (z < 0)) writeln('Точка в 6 октанте');
if((x < 0) and (y < 0) and (z < 0)) writeln('Точка в 7 октанте');
if((x > 0) and (y < 0) and (z < 0)) writeln('Точка в 8 октанте');
end.