Задача: Двухцветный круг вращается вокруг вертикальной оси. При нажатии пробел останавливается
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;
У меня вроде круг есть, но незнаю как его заставить вращаться, ну и с пробелом тоже не ясно, подскажите пожалста