помогите закрасить треугольник,используя floodfill

[I_R_I_A_N_A]

program AnimROB;
uses crt, graph;
var grDriver, grMode: integer;
	
var x, y, m: integer;

procedure robot(x, y, m: integer);
begin
  setcolor(9); setfillstyle(1,9);  bar(x - 4 * m, y - 5 * m, x + 4 * m, y + 5 * m);setbkcolor(0);
  setcolor(9); setfillstyle(1,9); bar(x - 2 * m, y - 5 * m, x - 2 * m, y - 6 * m);
  setcolor(9); setfillstyle(1,9); bar(x + 2 * m, y - 5 * m, x + 2 * m, y - 6 * m);
  setcolor(9); setfillstyle(1,9);   bar(x-2*m,y-6*m,x+2*m,y-5*m);
  setcolor(11);setfillstyle(1,11);  bar(x-3*m,y-12*m,x+3*m,y-6*m);
  setcolor(8); setfillstyle(1,8); fillellipse(trunc(x - 1.5 * m), trunc(y - 11 * m), trunc(0.5 * m), trunc(0.5 * m));
  setcolor(8); setfillstyle(1,8); fillellipse(trunc(x + 1.5 * m), trunc(y - 11 * m), trunc(0.5 * m), trunc(0.5 * m));
  setcolor(5); setfillstyle(1,5);  line(x - 4 * m, y - 5 * m, x - 7 * m, y + m);
  setcolor(5); setfillstyle(1,5);  line(x + 4 * m, y - 5 * m, x + 7 * m, y + m);
  setcolor(9); setfillstyle(1,9);  bar(x - 3 * m,y + 5 * m, x - m,y + 10 * m);
  setcolor(9); setfillstyle(1,9);  bar(x + m,y + 5 * m, x + 3 * m,y + 10 * m);
  setcolor(12); setfillstyle(1,12);bar(x-m,y-8*m,x+m,y-7*m);
  setcolor(11); setfillstyle(1,11); bar(x - 3 * m, y - 10 * m, x - 4 * m, y - 7 * m);
  setcolor(11); setfillstyle(1,11); bar(x + 3 * m, y - 10 * m, x + 4 * m, y - 7 * m);
  setcolor(4);  setfillstyle(1,4);  fillellipse(x,trunc(y-9.3*m),trunc(0.3*m),trunc(0.3*m));
  setcolor(4); setfillstyle(1,4); line(x-2*m,y-12*m,x,y-15*m);{здесь
  setcolor(4); setfillstyle(1,4); line(x,y-15*m,x+2*m,y-12*m);{и здесь мне надо закрасить треуголник
  putpixel(x,y-3*m,0);
  putpixel(x,y,0);
  putpixel(x,y+3*m,0);
  putpixel(trunc(x-1.5*m),y-11*m,14);
  putpixel(trunc(x+1.5*m),y-11*m,14);
  end;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, '');
  x := 180;
  y := 280;
  m := 10;
  repeat
    robot(x, y, m);
    Delay(1000);
    x := x + 4;
    ClearDevice;
  until (x > 400);
  closegraph;
end.

Никак не могу закрасить треугольник,все время закрашивает и внутри и снаружи.Помогите пожалуйста.