Квадрат вращается вокруг собственной оси

uses
GraphABC;
begin
 setwindowsize(400,300);
 setbrushcolor(clGreen);
 rectangle(150, 200, 250, 100);
end.

uses graphABC,crt;
var x,y,a,b,z:integer;
begin
hidecursor;
x:=windowwidth div 2;
y:=windowheight div 2;
a:=100;
b:=100;
lockdrawing;
repeat
while b>1 do
 begin
  clearwindow;
  setpencolor(clRed);
  setbrushstyle(bsClear);
  rectangle(x-b,y-a,x+b,y+a);
  sleep(50);
  b:=b-2;
  redraw;
 end;
while b<a do
 begin
  clearwindow;
  setpencolor(clRed);
  setbrushstyle(bsClear);
  rectangle(x-b,y-a,x+b,y+a);
  sleep(50);
  b:=b+2;
  redraw;
 end;
until keypressed;
end.

uses graphABC,crt;
var a1,a2,a3,a4,x1,x2,x3,x4,y1,y2,y3,y4,r:real;
begin
r:=sqrt(20000)/2;
a1:=pi/4;
a2:=pi*0.75;
a3:=-(pi*0.75);
a4:=-(pi/4);
 
setwindowsize(400,300);
setbrushcolor(clGreen);
rectangle(150, 200, 250, 100);
 
sleep(1000);
 
repeat
 
 Clearwindow;
 
 x1:=200+r*sin(a1);
 y1:=150+r*cos(a1);
 x2:=200+r*sin(a2);
 y2:=150+r*cos(a2);
 x3:=200+r*sin(a3);
 y3:=150+r*cos(a3);
 x4:=200+r*sin(a4);
 y4:=150+r*cos(a4);
 
 line(round(x1),round(y1),round(x2),round(y2));
 lineto(round(x3),round(y3));
 lineto(round(x4),round(y4));
 lineto(round(x1),round(y1));
 floodfill(200,150,clgreen);
 
 a1:=a1+0.03;
 a2:=a2+0.03;
 a3:=a3+0.03;
 a4:=a4+0.03;
 
 sleep(40);
 
until keypressed;
end.