Можно так но тут я координаты заранее забил ... а если тебе надо чтоб он сам выщитывал то не знаю думать надо <_<
Код
uses graph,crt;
type Point=record
x:Word;
y:word;
end;
Var
gr,dr:integer;
pol:array[1..11] of point;{массив для хранения вершин}
begin
gr:=detect;
initgraph(gr,dr,'E:\TP7\BGI\');
directvideo:=false;
pol[1].x:=50; pol[1].y:=100;
pol[2].x:=55; pol[2].y:=115;
pol[3].x:=70; pol[3].y:=115;
pol[4].x:=57; pol[4].y:=125;
pol[5].x:=62; pol[5].y:=140;
pol[6].x:=50; pol[6].y:=130;
pol[7].x:=36; pol[7].y:=140;
pol[8].x:=43; pol[8].y:=125;
pol[9].x:=30; pol[9].y:=115;
pol[10].x:=45; pol[10].y:=115;
pol[11].x:=50; pol[11].y:=100;
drawpoly(11,pol);
readkey;
closegraph;
end.