Движение точки (или круга) по заданной траектории - PascalABC.NET

uses
  GraphABC;
 
procedure proc();
begin
  ClearWindow;
  Rectangle(10, 10, 250, 250);
  for var j := 1 to 4 do
    Line(10, round(240 / 5) * j + 10, 250, round(240 / 5) * j + 10);
  for var j := 1 to 4 do
    Line(round(240 / 5) * j + 10, 10, round(240 / 5) * j + 10, 250);
end;
 
begin
  LockDrawing;
  SetWindowHeight(300);
  for var i := 1 to 240 do
  begin
    proc();
    Circle(10, i + 10, 10);
    Redraw;
    Sleep(1);
  end;
  var x := 10;
  for var i := 240 downto 1 do
  begin
    proc();
    Circle(x, i + 10, 10);
    Inc(x);
    Redraw;
    Sleep(1);
  end;
  for var i := 240 downto 83 do
  begin
    proc();
    Circle(i, 10, 10);
    Redraw;
    Sleep(1);
  end;
  for var i := 10 to 130 do
  begin
    proc();
    Circle(83, i, 10);
    Redraw;
    Sleep(1);
  end;
  x := 83;
  for var i := 130 downto 83 do
  begin
    proc();
    Circle(x, i, 10);
    Inc(x);
    Redraw;
    Sleep(1);
  end;
end.