Упростить код построения прямоугольника по координатам - PascalABC.NET

Формулировка задачи:

Написал программу, которая чертит прямоугольник по заданным координатам, если его длина не больше 640, а ширина не больше 400. И при том если условие не удовлетворяет, то призывает писать координаты еще раз. Я лишь пытался писать по своему, можно ли его как то упростить или записать правильнее?

uses graphabc;
var x1, y1, x2, y2, q:integer;
begin
repeat
writeln('X1; Y1:');
readln(x1,y1);
writeln('X2; Y2:');
readln(x2, y2);
clearwindow;
if abs(x2-x1)<=400 then 
begin 
if abs(y2-y1) <=640 then 
begin q:=1; 
rectangle(x1, y1, x2, y2); 
end
else q:=0
end
else
q:=0;
until
q=1
end.

Решение задачи: «Упростить код построения прямоугольника по координатам»

Листинг программы

uses
  graphabc;
 
var
  x1, y1, x2, y2: integer;
 
begin
  repeat
    writeln('X1; Y1:');
    readln(x1, y1);
    writeln('X2; Y2:');
    readln(x2, y2);
    clearwindow;
  until (abs(x2 - x1) <= 400) and (abs(y2 - y1) <= 640);
  rectangle(x1, y1, x2, y2); 
end.

Объяснение кода листинга программы

Импортируется модуль graphabc.
Задаются четыре переменные типа integer: x1, y1, x2, y2.
В основной цикл repeat-until помещен код для чтения координат из консоли и очистки окна.
Код в цикле выполняется до тех пор, пока разница между координатами x2 и x1 не станет меньше или равной 400, а разница между координатами y2 и y1 не станет меньше или равной 640.
Вызывается функция rectangle(x1, y1, x2, y2), которая рисует прямоугольник на графике по заданным координатам.