Анимаци движения звезд с права на лево...

[Kore]

Program Zvezdy;
Uses Crt,Graph;
type Matr = array[1..600, 1..3] of integer;

Var
mas:matr;

kk,x,y,k,gd,gm,r,xm,x1,y1,k1,Ry,Fil l,Radius:integer;


Begin
Gd:=Detect;
InitGraph(Gd,Gm,'C:\TP\Bgi');
Setcolor(white);
for k:=1 to 600 do
begin
x:=random(640);
y:=random(480) ;
mas[k,1]:=x;
mas[k,2]:=y;
mas[k,3]:=k;
putpixel(x,y,k);
end;
line(180,300,400,300);
line(180,215,180,300);
line(180,215,220,250);
line(220,250,330,250);
line(330,250,400,300);
line(330,250,330,280);
line(330,280,370,280);
line(340,290,210,350);
Line(210,350,220,290);
Line(340,290,220,290);
SetFillStyle(1,Blue);
FloodFill(220,275,white);
SetFillStyle(1,Blue);
FloodFill(250,310,white);
SetFillStyle(1,red);
FloodFill(270,292,white);
repeat until keypressed;

cleardevice;
line(180,300,400,300);
line(180,215,180,300);
line(180,215,220,250);
line(220,250,330,250);
line(330,250,400,300);
line(330,250,330,280);
line(330,280,370,280);
line(340,290,210,350);
Line(210,350,220,290);
Line(340,290,220,290);
SetFillStyle(1,Blue);
FloodFill(220,275,white);
SetFillStyle(1,Blue);
FloodFill(250,310,white);
SetFillStyle(1,red);
FloodFill(270,292,white);
for kk:=1 to 640 do
for k:=1 to 600 do
begin
x1:=mas[k,1]-1;
mas[k,1]:=x1;
y1:=mas[k,2]-1;
mas[k,2]:=y1;
k1:=mas[k,3]-1;
mas[k,1]:=k1;
putpixel(x1,y1,k1);
end;

repeat until keypressed;

end.


Пытался разобраться,Но получается только снизу вверх....