Написать программу, которая определяет – какая из двух точек, заданных на плоскости своими координатами, находиться ближе к оси OX, и какая к оси OY — Pascal(Паскаль)

uses crt;
var x1,y1,x2,y2:real;
begin
clrscr;
writeln('Введите координаты первой точки');
readln(x1,y1);
writeln('Введите координаты второй точки');
readln(x2,y2);
if abs(y1)<abs(y2) then writeln('Первая точка ближе к оси ОХ')
else if abs(y1)>abs(y2) then writeln('Вторая точка ближе к оси ОХ')
else writeln('Обе точки на одинаковом расстоянии от оси ОХ');
if abs(x1)<abs(x2) then writeln('Первая точка ближе к оси ОY')
else if abs(x1)>abs(x2) then writeln('Вторая точка ближе к оси ОY')
else writeln('Обе точки на одинаковом расстоянии от оси ОY');
readln
end.