На плоскости 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(ylt;gt;0) then write(На оси Y)
else if(xlt;gt;0)and(y=0) then write(На оси X)
else if(xgt;0)and(ygt;0)then write(I четверть)
else if(xlt;0)and(ygt;0)then write(II четверть)
else if(xlt;0)and(ylt;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 (xgt;0) and (ygt;0) then Begin
Write(в первой четверти);
goto 1;
end;
if (xlt;0) and (ygt;0) then begin
Write(во 2-ой четверти);
goto 1;
end;
if (xlt;0) and (ylt;0) then Begin
Write(в третьей четверти);
goto 1;
end
else Write(в четвертой четверти);
1: Readkey;
end.