Анимация. Колесо вращается - PascalABC.NET

Формулировка задачи:

Здравствуйте, помогите пожалуйста, напишите код, которые сделает так, чтобы колесо крутилось. Т.е Само колесо крутилось и те колеса, что внутри также, пожалуйста, сделайте, умоляю, очень нужно до завтра) Я пытался, но криворуко( Вот само колесо.

Program Koleso10;
uses GraphABC;
Begin
 SetWindowSize(640,480);
 SetPenColor(ClGray);
 SetPenWidth(3);
 SetPenColor(ClPurple);
 Circle(250,250,100);
 SetPenColor(ClPurple);
 Circle(250,250,50);
 SetPenColor(ClRed);
 Circle(200,190,20);
 SetPenColor(ClBlue);
 Circle(280,180,20);
 SetPenColor(ClYellow);
 Circle(325,260,20);
 SetPenColor(ClGreen);
 Circle(250,325,20);
 SetPenColor(ClOrange);
 Circle(180,280,20);
 end.

Решение задачи: «Анимация. Колесо вращается»

Листинг программы

uses GraphABC;
const n=5;
      cl:array[1..n] of Color=(clOrange,clRed,clBrown,clBlue,clGreen);
var a:array [1..n] of point;
    c,r1,r2,r3,r4:integer;
    u,u1:real;
Begin
 SetWindowSize(500,500);
 Centerwindow;
 c:=250;
 r1:=100;
 r2:=50;
 r3:=75;
 r4:=20;
 lockdrawing;
 u:=0;
 repeat
 clearwindow;
 SetPenColor(ClGray);
 SetPenWidth(3);
 SetPenColor(ClPurple);
 Circle(c,c,r1);
 SetPenColor(ClPurple);
 Circle(250,250,r2);
 u1:=u;
 for var i:=1 to n do
  begin
   a[i].x:=c+round(r3*cos(u1));
   a[i].y:=c-round(r3*sin(u1));
   u1:=u1+2*pi/5;
   SetPenColor(cl[i]);
   Circle(a[i].x,a[i].y,r4);
  end;
 sleep(50);
 u:=u-0.1;
 redraw
 until false
 end.

Объяснение кода листинга программы

Объявлены переменные: n, cl, a, c, r1, r2, r3, r4, u, u1 (20)
Задаются размеры окна и его расположение по центру (SetWindowSize, Centerwindow)
Задаются начальные значения для переменных c, r1, r2, r3, r4 (c:=250; r1:=100; r2:=50; r3:=75; r4:=20)
Блокируется отрисовка (lockdrawing)
Задается начальное значение для переменной u (u:=0)
В цикле while (repeat..until false) происходит отрисовка: 6.1 Очищается окно (clearwindow) 6.2 Задается цвет и ширина пера (SetPenColor, SetPenWidth) 6.3 Рисуется окружность с центром в точке c и радиусом r1 (Circle(c,c,r1)) 6.4 Рисуется окружность с центром в точке (250,250) и радиусом r2 (Circle(250,250,r2)) 6.5 В цикле for i:=1 to n рисуются окружности с центрами в точках a[i].x и a[i].y и радиусом r4 (a[i].x:=c+round(r3cos(u1)); a[i].y:=c-round(r3sin(u1)); SetPenColor(cl[i]); Circle(a[i].x,a[i].y,r4)) 6.6 Выполняется задержка в 50 миллисекунд (sleep(50)) 6.7 Значение переменной u уменьшается на 0.1 (u:=u-0.1)
После выхода из цикла while выполняется разблокировка отрисовки (redraw)