Нарисовать прямоугольник, внутри него квадрат, который движется вдоль стен прямоугольника

uses
  crt, GraphABC;
var
  x, y, a, w, h, dw, dh: integer;
 
begin
  repeat
    writeln('Введите ширину прямоугольника: ');
    readln(w)
  until (w <= WindowWidth) and (w > 50);
  repeat
    writeln('Введите высоту прямоугольника: ');
    readln(h)
  until (h <= WindowHeight) and (h > 50);
  repeat
    writeln('Введите сторону квадрата: ');
    readln(a)
  until (a < w) and (a < h) and (a > 0);
  writeln('Поехали!');
  sleep(1000);
  dw := (WindowWidth - w) div 2;
  dh := (WindowHeight - h) div 2;
  x := dw; y := dh;
  LockDrawing;
  repeat
    ClearWindow;
    SetBrushColor(clWhite);
    Rectangle(dw, dh, WindowWidth - dw, WindowHeight - dh);
    SetBrushColor(clGreen);
    if (y < WindowHeight - dh - a) and (x = dw) then inc(y)
    else
    if (x < WindowWidth - dw - a) and (y = WindowHeight - dh - a) then inc(x)
    else
    if (y > dh) and (x = WindowWidth - dw - a) then dec(y)
    else
    if y = dh then dec(x);
    FillRect(x, y, x + a, y + a);
    Sleep(10);
    reDraw
  until false;
end.