Модуль Graph

[opskaka]

Модуль Graph

Помогите пожалуйста написать код рисования вот этой штуки
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. только чтобы после того как мы ее нарисовали, она исчезла, потом появилась и начала передвигаться по полю в любом направлении.Пожалуйста, очень срочно,помогите!Заранее благодарна)

 

[shrek=)]

В цикле отслеживайте направление и изменяйте соответствующие координаты, причём старые координаты сохраняйте в отдельные переменные они нужны для предварительного стирания рисунка на старом месте, новые координаты вычисляйте относительно старых. Перед выводом рисунка произведите установку цвета (на старом месте цвета равные фону, на новом - требуемый)