Не могу найти ошибку, анимация в паскаль

[Karima]

Задача такая: на экране случайным образом появляются точки, и по нажатию любой клавиши эти точки должны падать по одному вниз. у меня получилось так что когда я нажимаю на клавишу то звезды по одной штуке просто летают по экрану помогите найти ошибку, вот мой код

uses graph, crt;
const w=10;
var
 gd,gm:integer;
 c:char;
 i:integer;
procedure zv(x,y,c:integer);
begin
 for i:=1 to w do
  begin
   putpixel(x,y,c);
  end;
end;
procedure motion;
var dx,dy,x,y:integer;
begin
 dx:=random(5)+5;
 dy:=random(10)-5;
 x:=random(640); y:=random(480);
 zv(x,y,15);
 repeat
  zv(x,y,0);
  inc(x,dx); inc(y,dy);
  zv(x,y,15);
  delay(10);
 until (y>479) or (y<0) or (x>639);
end;


begin
 gd:=vga; gm:=2;
 initgraph(gd,gm,'');
 randomize;

 repeat
  c:=readkey;
  motion;
 until c=#27;
  closegraph;
end.