Доделать программу

Program RA_EXAM;
uses VCL, utils;
var   MainForm: Form;
      e: PaintBox;
      P: Panel;
      i,x,y,k: integer;
      l: textlabel;
      se,se1: SpinEdit;
      b1,b2 : Button;
      A1,A2 :integer;
      const XX = 640;
            YY = 500;
 
procedure read_file;
var t:text;
begin
end;
 
procedure Fon;
var i,x,y: integer;
begin
read_file;
e.Pen.Width:= se1.Value;
 
if A1 = 1 then A1:= clAqua
else A1:= clBlue;
e.Pen.Color:= A1;
e.Brush.Color:=A1;
e.Brush.Style:=bsSolid;
e.rectangle(0,0,640,480);
 
e.Pen.Color:=clGreen;
e.Brush.Color:=clGreen;
e.Brush.Style:=bsSolid;
e.Circle(250, 670, 400);
e.Circle(550, 570, 300);
end;
 
 
procedure Tree;
 
begin
if (se1.value>k)and(k<8) then
begin
e.Pen.Color:=clBlack;
e.Brush.Color:=clBlack;
e.Brush.Style:=bsSolid;
x:=x+75;
repeat
y:=300+random(200);
until e.GetPixel(x,y)=clGreen;
e.rectangle(x-10, y-100, x+10, y);
e.Pen.Color:=clGreen;
e.Brush.Color:=clGreen;
e.Brush.Style:=bsSolid;
e.Circle(x, y-90, 30);
e.Circle(x+20, y-90, 30);
e.Circle(x-10, y-110, 30);
e.Circle(x+30, y-110, 30);
e.Circle(x+10, y-130, 30);
k:=se1.value;
end;
end;
 
procedure B1Click;
begin
  MainForm.Close;
end;
 
procedure B2Click;
begin
execute('hh.exe help.chm');
end;
 
 
BEGIN
read_file;
 
MainForm:=Form.Create (150,200,XX+120,YY);
MainForm.Caption:=' ';
 
 
p:=Panel.Create;
p.Width:=120;
p.Align:=alLeft;
 
B1:=Button.Create (p,0,YY-90,p.Width,40);
B1.Caption:='Закрыть программу. ';
B1.OnClick:=b1Click;
 
l:=TextLabel.Create(p,10,70,'Количество деревьев:  ');
se1:=SpinEdit.Create(p,20,95,60,20);
se1.Min:=0;
se1.Max:=8;
se1.Value:=A2;
B2:=Button.Create (p,0,YY-125,p.Width,25);
B2.Caption:='Справка.';
B2.OnClick:=B2Click;
 
e:=PaintBox.Create(p.width,0,screen.width,screen.height);
Fon;
se1.OnChange:=Tree;
end.