Стрелочка, помогите начертить стрелку не получается((( (курсовая) Опции

[Wladislove911]

Стрелка состоит из отрезка прямой и равностороннего треугольника – острия. Сторона треугольника, пересекающая отрезок, образует с ним прямой угол; точка пересечения делит отрезок в отношении . Построить вертикальную стрелку, направленную из точки (100, 100) в точку (100, 50).
что надо изменить чтобы стрелка пошла вниз?
uses graphABC;
var x,y:integer;
h,a:integer;
begin
x:=0;
initgraph(x,y,'');
x:=100;
y:=100;
h:=round(100/6);
a:=round(h/sin(pi/3));
line(100,100,100,50-h);
line(100,50,100-a div 2,50-h);
line(100,50,100+a div 2,50-h);
line(100-a div 2,50-h,100+a div 2,50-h);
readln
end.

[IUnknown]

line(100,100,100,50-h);
line(100,100,100-a div 2,100-h);
line(100,100,100+a div 2,100-h);
line(100-a div 2,100-h,100+a div 2,100-h);

(PascalABC не держу, проверил обычным Graph-ом, на FPC)

[Wladislove911]

Спасибо,выручил)))))