рисование на паскаль

[verone]

помогите сделать так чтобы она двигалась влево или вправо вот сама фигура

Код Pascal

program mjachik;
uses graph,crt;
var
 
 
grDriver:integer;
grMode:integer;
begin
 
 
grDriver:=Detect;
InitGraph(grDriver,grMode,'c:\tp\bgi');
SetBkColor(0);
SetColor(6);
SetBkColor(16);
 Circle(250,180,60);
SetColor(14);
Circle(250,140,5);
SetColor(14);
line(250,150,250,230);
SetColor(14);
Ellipse(250,190,270,90,20,40);
Line(250,122,250,132);
Line(250,133,230,130);
Line(250,122,230,130);
readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[rubius2008]

поместите код рисования фигуры в цикл, в котором рисуете фигуру с некоторым смещением по Х нужными цветами, потом вставляете задержку (delay - на сколько я помню), рисуете всю фигуру цветом фона