Закручивающийся квадрат на 1/5 длины его стороны

program f;
uses crt, graphabc;
const
 x0=300; y0=200; dt=0.5 ;
var x1,x2,x3,x4, y1,y2,y3,y4: integer;
r,x,v,w, a1,a2,a3,a4:real;
begin
 r:=240;
 x1:=240;
 x2:=540;
 x3:=540;
 x4:=240;
 y1:=100;
 y2:=100;
 y3:=400;
 y4:=400;
  a1:=0;
  a2:=90;
  a3:=180;
  a4:=270;
w:=10 ;
v:=10;
 
while not (KeyPressed) do
begin
 
x1:= x0 + Round (r*sin(a1*pi/180));
y1:= y0 - Round (r*cos(a1*pi/180));
x2:= x0 + Round (r*sin(a2*pi/180));
y2:= y0 - Round (r*cos(a2*pi/180));
x3:= x0 + Round (r*sin(a3*pi/180));
y3:= y0 - Round (r*cos(a3*pi/180));
x4:= x0 + Round (r*sin(a4*pi/180));
y4:= y0 - Round (r*cos(a4*pi/180));
 
 
 
setpencolor(clblack);
 line(x1,y1,x2,y2);
  line(x2,y2,x3,y3);
   line(x3,y3,x4,y4);
    line(x4,y4,x1,y1);
   sleep(50);
   setpencolor(clwhite);
   line(x1,y1,x2,y2);
  line(x2,y2,x3,y3);
   line(x3,y3,x4,y4);
    line(x4,y4,x1,y1);
    
 
a1:=a1+w*dt;
a2:=a2+w*dt;
a3:=a3+w*dt;
a4:=a4+w*dt;
end;
end.

uses graphABC;
var a,da,n,xc,yc,i:integer;
    m,ax,aax,bx,bbx,cx,ccx,dx,ddx,ay,aay,by,bby,cy,ccy,dy,ddy:real;
begin
a:=200;//начальная длина стороны
n:=20; //кол квадратов
m:=0.2; //смещение на 1/5
xc:=windowwidth div 2; //центр
yc:=windowheight div 2;
ax:=xc+a*cos(45*pi/180);//начальные координаты
ay:=yc-a*sin(45*pi/180);
bx:=xc+a*cos(135*pi/180);
by:=yc-a*sin(135*pi/180);
cx:=xc+a*cos(225*pi/180);
cy:=yc-a*sin(225*pi/180);
dx:=xc+a*cos(315*pi/180);
dy:=yc-a*sin(315*pi/180);
for i:=1 to n+1 do
 begin
  aax:=ax+(dx-ax)*m; aay:=ay+(dy-ay)*m;
  bbx:=bx+(ax-bx)*m; bby:=by+(ay-by)*m;
  ccx:=cx+(bx-cx)*m; ccy:=cy+(by-cy)*m;
  ddx:=dx+(cx-dx)*m; ddy:=dy+(cy-dy)*m;
  line(round(ax),round(ay),round(bx),round(by));
  line(round(bx),round(by),round(cx),round(cy));
  line(round(cx),round(cy),round(dx),round(dy));
  line(round(dx),round(dy),round(ax),round(ay));
  ax:=aax; ay:=aay;
  bx:=bbx; by:=bby;
  cx:=ccx; cy:=ccy;
  dx:=ddx; dy:=ddy;
 end;
end.