Рисование в GraphABC

[Наташок]

Помогите пожалуйста написать код рисования вот этой штуки
program kkk;
uses crt,graphABC;
type ColorType=integer;
var x,y,r:integer;

begin
ClearWindow;
SetPenWidth(4);
circle(160,150,50);
SetBrushColor(4);
circle(145,140,5);
circle(175,140,5);
SetPenWidth(4);
Arc(160,185,30,20,160);
end. только чтобы после того как мы ее нарисовали, она исчезла, потом появилась и начала передвигаться по полю в любом направлении.Заранее благодарна.

[rubius2008]

Нарисуйте эту штуку цветом фона и она закрасится, потом задайте смещение по нужной координате, и постоянно ее изменяйте на эту величину в цикле.