Составить прибавленье на языке Pascal.Найти в какую четверть координатной плоскостипопала точка

program fourth;
var N: integer;
x, y: real;
begin
n:= -1;
write(Введите координаты точки x и y через пробел: );
readln (x, y);
if (x = 0) and (y = 0) then N:= 0;
if (x gt; 0) and (y gt; 0) then N:= 1;
if (x lt; 0) and (y gt; 0) then N:= 2;
if (x lt; 0) and (y lt; 0) then N:= 3;
if (x gt; 0) and (y lt; 0) then N:= 4;
case N of
0: writeln(Точка находится в начале координат.);
1, 2, 3, 4: writeln(Четверть , N);
end;
if (x=0)and (ylt;gt;0) then writeln(Точка находится на оси Y);
if (y=0)and (xlt;gt;0) then writeln(Точка находится на оси X);
end.