Pascal, wypełnianie kolorem. Opcje

[kajzur]

Witam, mógły ktoś powiedzieć mi, czemu trójkąt nie jest wypełniany a obszar poza nim?

Kod

program prg;

uses crt, graph;

var tryb, karta : Integer;



BEGIN

detectgraph(tryb, karta);

initgraph(tryb, karta, '');

setcolor(red);
       setlinestyle(0, 4, 3);

line(250, 400, 400, 100);


line(400, 100, 550, 400);

line(250, 400, 550, 400);

     setfillstyle(1, yellow);
floodfill(300, 450, red);



readkey;

closegraph();
END.