Pascal ABC : Нарисовать пузырьки, поднимающиеся вверх

[ЛЕСЯ*]

НАПИШИТЕ ПРОГРАММУ,ГДЕ ПУЗЫРЬКИ ПОДНИМАЮТСЯ ВВЕРХ,ОГРОМНОЕ СПАСИБО!!!

[type_Oleg]

Написал.

unit UnPuzyr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
tPuz=record
 X,Y,r:Integer;
 col:TColor;
end;

var
  Form1: TForm1;
  puzyr:array[1..20] of TPuz;
const
  DY=20;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:Byte;
const CCOLOR:array[0..7]of TColor=(clRed,clGreen,clBlue,clBlack,clLime,clYellow,clGray,clPurple);
begin
 for i:=1 to 20 do
  begin
   puzyr[i].col:=CCOLOR[Random(8)];
   puzyr[i].X:=Random(Width);
   puzyr[i].Y:=Height+Random(Height);
   puzyr[i].r:=10+Random(Width div 6);
  end;
 Timer1.Enabled:=True; 
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i:Byte;
begin
  Canvas.FillRect(Canvas.ClipRect);
  for i:=1 to 20 do
   begin
    if (puzyr[i].Y>0)
     then puzyr[i].Y:=puzyr[i].Y-DY
     else puzyr[i].Y:=Height+Random(Height);
    if (puzyr[i].Y>0)and(puzyr[i].Y<Height)
     then begin
           Canvas.Pen.Color:=puzyr[i].col;
           Canvas.Ellipse(puzyr[i].X-puzyr[i].r,puzyr[i].Y-puzyr[i].r,puzyr[i].X+puzyr[i].r,puzyr[i].Y+puzyr[i].r);
          end
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Timer1.Interval:=100;
 Timer1.Enabled:=False;
 Canvas.Pen.Width:=2;
end;

initialization
 Randomize;
end.

[ЛЕСЯ*]

мне надо в abc паскаль