Нарисовать квадрат, который в каждый момент своего движения касается одной из сторон круга с центром в центре экрана - PascalABC.NET

uses GraphABC;
 
var
  Angle : integer;
  
procedure Repaint;
const 
  R = 75; // Радиус окружности
  A = 70; // Сторона квадрата
var
  pts : array of Point;
begin
  Inc(Angle);
  SetLength(pts, 4);
  
  var cx := Window.Width div 2;
  var cy := Window.Height div 2;
  
  var px := cx + Trunc((R + A div 2) * Cos(DegToRad(Angle)));
  var py := cy + Trunc((R + A div 2) * Sin(DegToRad(Angle)));
  
  for var i : integer := 0 to 3 do
  begin
    pts[i].X := px + Trunc((A / Sqrt(2)) * Cos(DegToRad(45 + (i * 90) - Angle)));
    pts[i].Y := py - Trunc((A / Sqrt(2)) * Sin(DegToRad(45 + (i * 90) - Angle)));
  end;
 
  Window.Clear;  
  Circle(cx, cy, R);
  DrawPolygon(pts);
  Redraw;
end;
 
var 
  Flag : Boolean;
 
procedure MyKeyDown(key: integer);
begin
  Flag := true;
end;
 
begin
  OnKeyDown := MyKeyDown;
  LockDrawing;
  
  Angle := 0;
  repeat
    Repaint;
  until Flag;
end.