вращение диска Опции

[Sensitive]

Вообще не знаю каким способом делать эту задачу.
Условие прилагается. Подскажите пожалуйста, как это всё реализовать.

[klem4]

В общем вот черновой вариант, есть небольшие нестыковочки, но работает намного быстрее.

uses crt, graph;

const
  r = 100;

  cx: Integer = 0;
  cy: Integer = 0;

var
  gd, gm: Integer;

  angle, T, CA, CB: Integer;

  ch: Char;

begin
  gd := detect;
  initgraph(gd, gm, '');

  cx := GetMaxX div 2;
  cy := GetMaxY div 2;

  angle := 180;

  CA := White;
  CB := Black;

  SetFillStyle(SolidFill, CA);
  Sector(cx, cy, 0, 180, r, r);
  SetFillStyle(SolidFill, CB);
  Sector(cx, cy, 180, 360, r, r);

  repeat
    ch := #0;
    angle := 0;

    while (ch = #0) and (angle < 180) do begin
      SetColor(CB);
      SetFillStyle(SolidFill, CB);
      Sector(cx, cy, angle, angle + 12, r, r);

      SetColor(white);
      Circle(cx, cy, r);

      SetColor(CA);
      SetFillStyle(SolidFill, CA);
      Sector(cx, cy, angle + 180, angle + 192 , r, r);

      inc(angle, 12);
      while keypressed do ch := readkey;

      delay(50);
    end;

    T := CA; CA := CB; CB := T;

 until ch <> #0;

  closegraph;
end.