Построение треугольника, задание цвета и толщины бордюра

uses graphABC;
var x0,y0,x,y:integer;
a,b,t:real;
begin
x0:=320;
y0:=240;
line(0,240,640,240);
line(320,0,320,480);
a:=150; b:=50;
t:=-16;
while t<=-9 do
begin
x:=round(x0+(a*sqr(cos(t))+(b*cos(t))));
y:=round(y0+(a*cos(t)*sin(t))+(b*sin(t)));
putpixel(x,y,25);
t:=t+0.001;
sleep(1);
end;
end.

uses crt,graphABC;
var x0,y0,d,i,x1,y1:integer;
    r,a,b,f,x,xr,yr:real;
    s:string;
begin
hidecursor;
write('A=');read(a);
write('B=');read(b);
x0:=windowwidth div 2;
y0:=windowheight div 2;
clearwindow;
{КООРДИНАТНАЯ  СЕТКА}
d:=round((y0-40)/(round(b+a)));{шаг по оси радиуса в пикселях}
setpencolor(clBlue);
setbrushstyle(bsClear);
for i:=1 to round(b+a) do
 begin
  {рисуем окружности}
  circle(x0,y0,i*d);
  {пишем шкалу}
  str(i,s);
  textout(x0-i*d+5,y0+10,s);
 end;
f:=30;{шаг по кругу=30 град}
for i:=1 to 12 do{делим на 12 частей}
 begin
  {рисуем радиусы пунктиром}
  Setpenstyle(psDash);
  x1:=x0+round((y0-40)*cos(i*f*pi/180));
  y1:=y0-round((y0-40)*sin(i*f*pi/180));
  line(x0,y0,x1,y1);
  {пишем подписи}
  str(i*30,s);
  if (x1>=x0)and(y1<y0) then textout(x1+10,y1-15,s)
  else if (x1>=x0)and(y1>=y0) then textout(x1+10,y1+10,s)
  else if (x1<x0)and(y1<y0) then textout(x1-40,y1-15,s)
  else if(x1<x0)and(y1>=y0)then textout(x1-40,y1+10,s)
 end;
{рисуем осевые линии сплошной линией}
Setpenstyle(psSolid);
line(10,y0,windowwidth-10,y0);
line(x0,0,x0,windowheight);
textout(x0+5,y0+10,'0');
textout(25,y0+10,'A');
{ГРАФИК}
x:=0;{начальный угол}
while x<=360 do{полный оборот}
 begin
    r:=b-a*sin(x);{уравнение в полярных координатах}
    xr:=r*cos(x);{приведение к Декартовым}
    yr:=r*sin(x);
    x1:=x0+round(d*xr);{приведение к экранным}
    y1:=y0-round(d*yr);
    setpixel(x1,y1,clRed);
    x:=x+0.01;
 end;
end.