Вращение кубиков по часовой стрелке(или против)

uses GraphABC;
const квадратов = 25;
const сторонаКвадрата = 20;
const радиусКвадратов = 100;
begin
  Pen.Color := clGreen;
  var a := 0.0; var r := радиусКвадратов; var x := Window.Width / 2; var y := Window.Height / 2; var l := сторонаКвадрата / 2;
  repeat
    Rectangle(Round(x+Sin(a)*r-l), Round(y+Cos(a)*r-l), Round(x+Sin(a)*r+l), Round(y+Cos(a)*r+l));
    a += pi*2/квадратов;
  until a >= pi*2;
end.

uses GraphABC;
const квадратов = 25;
const сторонаКвадрата = 20;
const радиусКвадратов = 100;
begin
  Pen.Color := clGreen; LockDrawing; var a0 := 0.0; var iter := 0.0; var r := радиусКвадратов; var x := Window.Width / 2; var y := Window.Height / 2; var l := сторонаКвадрата / 2;
  repeat iter -= pi/квадратов/10; var a := a0 + iter; Window.Clear; var count := 0;
    repeat Rectangle(Round(x+Sin(a)*r-l), Round(y+Cos(a)*r-l), Round(x+Sin(a)*r+l), Round(y+Cos(a)*r+l)); a += pi*2/квадратов; сount += 1; until count = квадратов; Redraw; Sleep(10); until False;
end.