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

[Инкогнито]

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

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;

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

[Client]

while true do

меня это очень удивило, а тебя??

[Инкогнито]

while true do

меня это очень удивило, а тебя??

Пока правда то...что тут?
Программа работает сама! Но цвет один, у мменя в этом запара...