Нарисовать равносторонний треугольник

procedure Trg(a,x,y:integer;c:TCanvas);
var p:array[1..4] of TPoint;
    h:integer;
begin
h:=round(a*sin(pi/3)/2);
a:=a div 2;
p[1].X:=x-a;p[1].Y:=y+h;
p[2].X:=x; p[2].Y:=y-h;
p[3].X:=x+a; p[3].Y:=y+h;
p[4].X:= p[1].X;p[4].Y:=p[1].Y;
c.Polygon(p);
end;

procedure TForm1.Button1Click(Sender: TObject);
var n,r,x0,y0,i,j:integer;
    p:array of Tpoint;  //динамический массив точек
    a,da:real;
begin
randomize;
n:=StrToInt(Edit1.Text); //количество вершин
r:=StrToInt(Edit2.Text); //радиус описанной окружности
da:=360/n; //величина центрального угла = шаг поворота
//рисуем на Canvas формы
x0:=Form1.Width div 2; //середина формы
y0:=Form1.Height div 2;
Setlength(p,n+1); //создаем массив - выделяем под него память(1-я точка 2 раза)
a:=0; //начальный угол от горизонтальной оси против часовой стрелки
for i:=0 to n-1 do //создаем массив координат вершин
  begin
    p[i].x:=x0+round(r*cos(a*pi/180));
    p[i].y:=y0-round(r*sin(a*pi/180));
    a:=a+da;
  end;
p[n].x:=p[0].x; //дублируем первую точку для замыкания полигона
p[n].y:=p[0].y;
//рисуем многоугольник
Canvas.MoveTo(p[0].x,p[0].y); //в первую точку
Canvas.Pen.Color:=random($fffff); //случайный цвет пера
Canvas.Pen.Width:=2; //линия потолще
for i:=0 to n do
Canvas.LineTo(p[i].x,p[i].y);//рисуем полигон
Canvas.Pen.Width:=1; //нормальная толшина линий
end;

p[n]:=p[0]; //дублируем первую точку для замыкания полигона
p[n]:=p[0];

type TPoint=record
                 x,y:integer;
                 end;

var a:TPoint;
..........
a.x:=20;
a.y:=55;

var x,y:array of integer;
.............................
setlength(x,3);
setlength(y,3);