Анимация грозы в паскале

Program Kovalicustri;
uses graphABC;
var t:array[1..2,1..200]of integer;
    m,v:integer;
procedure KeyDown(Key: integer);
begin
  case Key of
       VK_Right:   if m <=195 then m:=m+5; 
       VK_Left:    if m>=6 then m:=m-5;
       VK_Up:      if v<=95 then v:=v+5;
       VK_Down:    if v>=5 then v:=v-5;
    end; 
  end;  
 
begin
m:=100;
v:=100;    
v:=round(100/v)-1;
for i:integer:=1 to m do
  begin
  t[1,i]:=random(0,windowwidth);
  t[2,i]:=random(0,windowheight);
  end;
repeat
lockdrawing;
clearwindow;
setPenWidth(3);
 
setPenColor(clGray);
setbrushcolor(clLightBlue);
rectangle(0,0,windowwidth,windowheight);
 
setPenColor(clGray);
setbrushcolor(clLightGray);
FillCircle(130,30,25);
FillCircle(0,20,25);
FillCircle(40,0,25);
FillCircle(80,20,39);
FillCircle(180,10,50);
setbrushcolor(clGray);
FillCircle(110,10,39);
FillCircle(190,20,39);
FillCircle(250,20,33);
FillCircle(340,20,33);
setbrushcolor(clDarkGray);
FillCircle(300,20,50);
FillCircle(360,20,20);
FillCircle(400,20,33);
FillCircle(480,20,40);
setbrushcolor(clGray);
FillCircle(444,10,18);
FillCircle(530,15,25);
FillCircle(570,20,30);
FillCircle(630,10,50);
 
setpencolor(clDarkblue);
for i:integer:=1 to m do
   begin
     line(t[1,i],t[2,i]-5,t[1,i],t[2,i]+5);
   end;
redraw;
sleep(v);
for i:integer:=1 to m do
   begin
     t[2,i]:=t[2,i]+5;
     if t[2,i]>windowheight then t[2,i]:=random(60);
   end;
   OnKeyDown:=KeyDown;
until false;
end.