Графика. Нарисовать инициалы (А.А.) в виде заполненных многоугольников

uses graph;
var x,y,i:integer;
    p:array[1..8] of pointtype;
begin
initgraph(x,y,'');
x:=getmaxX div 3;
y:=150;
p[1].x:=x;p[1].y:=y;
p[2].x:=x-80;p[2].y:=y+150;
p[3].x:=x-60;p[3].y:=y+150;
p[4].x:=x-32;p[4].y:=y+100;
p[5].x:=x+32;p[5].y:=y+100;
p[6].x:=x+60;p[6].y:=y+150;
p[7].x:=x+80;p[7].y:=y+150;
p[8]:=p[1];
setcolor(12);
drawpoly(8,p);
p[1].x:=x;p[1].y:=y+40;
p[2].x:=x-20;p[2].y:=y+80;
p[3].x:=x+20;p[3].y:=y+80;
p[4]:=p[1];
setcolor(12);
drawpoly(4,p);
setfillstyle(7,12);
floodfill(p[2].x-5,p[2].y+2,12);
x:=x*2;
p[1].x:=x;p[1].y:=y;
p[2].x:=x-80;p[2].y:=y+150;
p[3].x:=x-60;p[3].y:=y+150;
p[4].x:=x-32;p[4].y:=y+100;
p[5].x:=x+32;p[5].y:=y+100;
p[6].x:=x+60;p[6].y:=y+150;
p[7].x:=x+80;p[7].y:=y+150;
p[8]:=p[1];
setcolor(9);
drawpoly(8,p);
p[1].x:=x;p[1].y:=y+40;
p[2].x:=x-20;p[2].y:=y+80;
p[3].x:=x+20;p[3].y:=y+80;
p[4]:=p[1];
setcolor(9);
drawpoly(4,p);
setfillstyle(6,9);
floodfill(p[2].x-5,p[2].y+2,9);
readln
end.