Нахождение точки с координатами (х,у) — Pascal(Паскаль)

uses crt;

var
  x, y: integer;

begin;
  clrscr;
  writeln('Введите координаты точки (x)');
  readln(x);
  writeln('Введите координаты точки (y)');
  readln(y);
  IF (x = 0) OR (y = 0) THEN
    writeln('Точка лежит на разделе четвертей');
  IF (x > 0) AND (y > 0) THEN
    writeln('I-я четверть');
  IF (x < 0) AND (y > 0) THEN
    writeln('II-я четверть');
  IF (x < 0) AND (y < 0) THEN
    writeln('III-я четверть');
  IF (x > 0) AND (y < 0) THEN
    writeln('IV-я четверть');

end.