Программа с модулем graphABC

[Маньчик]

Нарисовать квадрат, который движется по горизонтали, в прямом и обратном направлении, и меняет цвет при достижении границы экрана. Программа завершается нажатием любой клавиши. Рисование фигуры оформить в виде процедуры.

Помогите пожалуйстааа.

[Vanta11a]

100 рублей на WM, ЯД, Qiwi, и будет программа.

"Забесплатно" - вот.

[McFrey]

вот программа где квадрат просто движется по горизонтали

uses crt,graph;
var gd,gm,dx: integer; 
     x1,y1,x2,y2: word;
begin
 gd:=detect;
 initgraph(gd,gm,'');
 x1:=100;
 y1:=100;
 x2:=100;
 y2:=100;
 dx:=1;
 setbkcolor(1);
 repeat
  setfillstyle(1,yellow);
  bar(x1,y1,x2,y2);
  delay(10);
  setfillstyle(1,1);
  bar(x1,y1,x2,y2);
  inc(x1,dx);
  inc(x2,dx);
  if (x2>638) or (x1<2) then dx:=-dx;
 until keypressed;
 closegraph;
end.