Проверить истинность высказывания: «Точка с координатами (x, y) лежит внутри прямоугольника, левая верхняя вершина которого имеет координаты (x1, y1), правая нижняя - (x2, y2), а стороны параллельны координатным осям»

Даны числа x, y, x1, y1, x2, y2.

Program Boolean29;
Var
x, y, x1, y1, x2, y2:Real;
Begin
WriteLn('Введите точку (x,y)');
ReadLn(x,y);
WriteLn('Введите точку (x1,y1)');
ReadLn(x1,y1);
WriteLn('Введите точку (x2,y2)');
ReadLn(x2,y2);
WriteLn((y < y1) And (y > y2) And (x > x1) And (x < x2));
end.

автор: Sklyarov Sergej a.k.a. S9