На плоскости XOY задана своими координатами точка А. Указать, где она расположена: на какой оси или в какой координатной четверти. (программа Паскаль)

uses crt;
var x,y:real;
begin
writeln('Введите координаты точки:');
read(x,y);
if(x=0)and(y=0) then write('В начале координат')
else if(x=0)and(y<>0) then write('На оси Y')
else if(x<>0)and(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 write('IV четверть');
end.

Program qwe;
Uses crt;
Label 1;
var x,y: Real;
Begin
Clrscr;
Write ('x,y=');
Read(x,y);
Write('Точка расположена ');
if x=0 then Begin Write('на оси OY');goto 1; end;
if y=0 then Begin Write('на оси OX'); goto 1;end;
if (x>0) and (y>0) then Begin
Write('в первой четверти');
goto 1;
end;
if (x<0) and (y>0) then begin
Write('во второй четверти');
goto 1;
end;
if (x<0) and (y<0) then Begin
Write('в третьей четверти');
goto 1;
end
else Write('в четвертой четверти');
1: Readkey;
end.

Отрезали всего 1/6 часть