рисование ели

[windi]

не рисует программу ель что нужно добавить:

Program SBS;
uses GraphABC;
Const a=150; {длина стороны треугольника}

{------------ Описание процедуры рисования леса ------------}
procedure triangle(x,y,h:integer; c1,c2: color); // Рисование треугольника 
{Параметры: x,y – координаты вершины h – высота; c1 –     цвет линий; c2 – цвет закраски }
begin
 x:=300; y:=150; 
         c1:=clLime;
         c2:=clLawnGreen; 
         SetPenColor(c1);
         moveto (x,y);
 Lineto(x+a div 2,y-100 ); 
 Lineto(x+a,y); 
 Lineto(x-a div 75,y) ;
 FloodFill(x+50,y-60,C2)// Рисуем елочку, обращаясь к процедуре 
end;
procedure fir(x,y,h:integer; c1,c2: color); // Процедура рисования елочки 
{Параметры: x,y – координаты вершины h – высота; st – стиль закраски c –     цвет линий; c2 – цвет закраски }
begin
// Рисуем елочку, используя процедуру TRIANGLE
end;
procedure Forest (N:byte); {N - количество елочек в лесу}
Const h0=30;
var i:byte;
    a,b,h:integer;
    color1,color2: Color;
begin
  For i:=1 to N do
    begin
      h:=random(h0-10)+10;           // высота треугольника от 10 до h0 точек
      a:=random(WindowWidth-20)+20;  // координата x вершины елочки - от 20 до ширины окна
      b:=random(WindowHeight-5)+5;  // координата y вершины елочки - от 5 до высоты окна
      color1:=clRandom;           // цвет линий
      color2:=clRandom;           // цвет закраски

      fir(a,b,h,color1,color2); 	// Обращение к процедуре рисования елочки
    end
end;
{------------ тело программы ------------}
begin
  Forest(25);
end.