Нарисовать три шарика, падающих сверху вниз

uses graphABC,crt;
var t:array[1..2,1..50]of integer;
    i:integer;
begin
randomize;
hidecursor;
for i:=1 to 3 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 3 do
 begin
  circle(t[1,i],t[2,i],20);
  floodfill(t[1,i],t[2,i],clBlue);
 end;
redraw;
sleep(50);
for i:=1 to 3 do
 begin
  t[2,i]:=t[2,i]+5;
 end;
until keypressed;
end.

uses GraphABC, PointRect;
const
   Radius = 32; // Радиус шарика
   WD = WindowWidth div 3;
   TY = WindowHeight - Radius;
var i: integer;
   Coor: array [0..2] of Point;
   run: boolean;
function rnd(min, max: integer): integer;
begin
   Result:= random(max+1-min)+min;
end;
begin
   run := true;
   LockDrawing;
   for i:= 0 to 2 do begin
      Coor[i].X:= rnd(i * WD + Radius, i * WD + WD - Radius);
      Coor[i].Y:= random(WindowHeight div 2);
   end;
   SetBrushColor(clRandom);
   while run do begin
      ClearWindow;
      for i:= 0 to 2 do begin
         if Coor[i].Y < TY then
            Coor[i].Y := Coor[i].Y + 1
         else
            Coor[i].Y := TY;
         Circle(Coor[i].X, Coor[i].Y, Radius);
      end;
      if (Coor[0].Y = TY) and (Coor[1].Y = TY) and (Coor[2].Y = TY) then run:= false;
      Redraw;
   end;
end.