Анимация нужна помощь

[selestenka]

Это предварительный набросок проги не могу понять в каком месте ошибка. Верхняя "Доминошка" должна падать и толкать другие,но она ползет и оставляет за собой синий след. Помогите плиз сделать эффект домино.
Program pr1;
Uses crt, graph;
var gd, gm, i, j: integer;
procedur dom(t, c, u: integr);
begin
setcolor (u);
rectangle (t, 50, t+40, 150);
rectangle (60, c, 100, c+100);
end;
begin
gd:=detect;
initgraph (gd, gm, 'c:\tp7\bgi');
rectangle (60, 50, 100, 150);
rectangle (110, 150, 150, 250);
rectangle (160, 250, 200, 350);
rectangle (210, 350, 250, 450);
rectangle (260, 400, 300, 475);
rectangle (310, 450, 350, 350);
rectangle (360, 350, 400, 250);
rectangle (410, 250, 450, 150);
rectangle (460, 50, 500, 150);
for i:=50 to 330 do begin
dom (i, green);
delay (1500);
dom (i, 7);
if keypressed then
if readkey=#27 then halt
end;
readln;
closegraph;
end.

[Вадим Буренков]

Ты не выложил файл с примером!

[selestenka]

Уже выложилА

[Andolol]

Во первых твой пример тупо не скомпилируется, поэтому не верю, что ты хотя бы запускала этот код
Во вторых, у тебя код и вправду рисует прямоугольник, который двигаясь закрашивает все на своем пути. Хмм. А где собственно код, который хотя бы проверяет доминошки на столкновения? И где процедура собственно управления движения массива доминошек? По моему ты вообще просто сделала видимость трудов, чтобы какой нибудь добрый дядечка на халяву сделал готовую программу Без обид )))