задача на графику, Движение круга вокруг оси Опции

[Инкогнито]

Добрый вечер всем, у меня тут проблемы с графикой
Задача: Двухцветный круг вращается вокруг вертикальной оси. При нажатии пробел останавливается

uses crt,Graph;
var
	GraphDriver,GraphMode,i:integer;
	col,x,y,r:word;
	s:string;
begin
	GraphDriver:=detect;
	GraphMode:=1;
	InitGraph(graphDriver,GraphMode,'');
	repeat
	r:=100;
	x:=100;
	y:=100;
	col:=white;
	if col=8 then col:=2;
	SetColor(col);
	circle(r,x,y);
	SetFillStyle(red,white);
	floodFill(x,y,col);

	until KeyPressed;
	readln;
	CloseGraph;

У меня вроде круг есть, но незнаю как его заставить вращаться, ну и с пробелом тоже не ясно, подскажите пожалста

[Инкогнито]

Вобщем так, я переделал всю программу, теперь круг действительно вращается, но теперь он лишь одного цвета, Пожалуйста подскажите как сделать его двухцветным!

uses crt, Graph;
const t=2000;
      x1=30;
      y1=30;
var
   gd, Gm:integer;
   a,b,c:integer;
   ind:integer;
   x,y,i,d:integer;

begin
Gd:=vga;
gm:=vgamed;
initgraph(gd,gm,'');
a:=0;
b:=1;
x:=GetmaxX div 2;
y:=GetMaxY div 2;
  while true do
   begin

 d:=1;
  while i<>31 do
   begin
     if  keypressed then
  if readkey=' ' then
    begin
      while not keypressed do
      if readkey =' ' then break
       else if readkey='x' then begin halt;end;
    end;
   setactivepage(a);
    setvisualpage(b);
    clearviewport;
    setfillstyle(1,red);
    setcolor(red);
   fillellipse (x,y,i,y1);
 
    delay(t);
    c:=a;
    a:=b;
    b:=c;
    i:=i+d;
   if i=x1 then
begin
setfillstyle(1,green);
setcolor(green);
   d:=d*-1;
end;
   if i<0 then
   d:=d*-1;
    end;
 end;
end.