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

[Инкогнито]

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

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;

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

[volvo]

  setfillstyle(1,red);
  setcolor(red);
  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;
    fillellipse (x,y,abs(i),y1); { <--- Внимательнее, здесь Abs, иначе вылетает }

    delay(t);
    c:=a;
    a:=b;
    b:=c;
    i:=i+d;

    if i=x1 then d := -d;

    if i < 0 then begin
      d := -d;
      if getcolor = red then begin
        setfillstyle(1,green);
        setcolor(green);
      end
      else begin
        setfillstyle(1,red);
        setcolor(red);
      end;
    end;
  end;

?

[Инкогнито]

  setfillstyle(1,red);
  setcolor(red);
  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;
    fillellipse (x,y,abs(i),y1); { <--- Внимательнее, здесь Abs, иначе вылетает }

    delay(t);
    c:=a;
    a:=b;
    b:=c;
    i:=i+d;

    if i=x1 then d := -d;

    if i < 0 then begin
      d := -d;
      if getcolor = red then begin
        setfillstyle(1,green);
        setcolor(green);
      end
      else begin
        setfillstyle(1,red);
        setcolor(red);
      end;
    end;
  end;

?

Да! Большое пребольшое спасибо тебе))) Ты меня спас)