Программа, рисующая капли в дожде — Pascal(Паскаль)

uses graphABC,crt;
var t:array[1..2,1..50]of integer;
    i:integer;
begin
randomize;
hidecursor;
for i:=1 to 50 do
 begin
  t[1,i]:=random(windowwidth-40)+20;
  t[2,i]:=random(windowheight-40)+20;
 end;
repeat
lockdrawing;
clearwindow;
setpencolor(clAqua);
for i:=1 to 50 do
 begin
  circle(t[1,i]+Random(5),t[2,i],2);
  floodfill(t[1,i],t[2,i],clBlue);
 end;
redraw;
sleep(5);
for i:=1 to 50 do
 begin
  t[2,i]:=t[2,i]+5;
  if t[2,i]>windowheight then t[2,i]:=1;
 end;
until keypressed;
end.