Построена корона с использованием процедур. Пожалуйста отредактируйте её, под вид программы в примере

uses graphABC;
procedure Fig(x1,y1,x2,y2,x3,y3,r,c,k:integer);
begin
SetPenColor(c);
line(x1,y1,x2,y2);
line(x1,y1,x3,y3);
line(x3,y3,x2,y2);
floodfill((x2+x3)div 2,y2-5,c);
if k=3 then{красный нужно в трех точках заливать}
 begin
  floodfill((x2+5),y2-5,c);
  floodfill((x3-5),y2-5,c);
 end;
circle(x1,y1,r);
floodfill(x1,y1,c);
end;
var x,y:integer;
begin
x:=windowwidth div 2;
y:=windowheight-50;
Fig(x-180,y-200,x-100,y,x,y,10,clBlue,1); {синий}
Fig(x+180,y-200,x,y,x+100,y,10,clLime,2); {зеленый}
Fig(x,y-230,x-50,y,x+50,y,10,clRed,3);    {красный}
end.

program qq;
procedure trg(a,x,y,r,g,b:integer);
var h:integer;
begin
h:=round(0.866*a);
pen(1,r,g,b);
moveto(x,y);lineto(x+a,y);
moveto(x+a,y);lineto(x+a div 2,y+h);
moveto(x+a div 2,y+h);lineto(x,y);
brush(1,r,g,b);
fill(x+5,y+5);
end;
var a,h:integer;
begin
a:=150;
h:=round(0.866*a);
trg(a,10,30,0,0,255);
trg(a,10+a,30,255,0,0);
trg(a,10+a div 2,30+h,0,255,0);
end.

pen(1,r,g,b);

Color (r, g, b : integer);

program korona;
procedure Fig(x1,y1,x2,y2,x3,y3,rd,r,g,b,k:integer);{rd-радиус кружочков}
begin
pen(1,r,g,b);
brush(1,r,g,b);
line(x1,y1,x2,y2);
line(x1,y1,x3,y3);
line(x3,y3,x2,y2);
fill((x2+x3)div 2,y2-5);
if k=3 then{красный нужно в трех точках заливать}
 begin
  fill((x2+5),y2-5);
  fill((x3-5),y2-5);
 end;
ellipse(x1-rd,y1-rd,x1+rd,y1+rd);
fill(x1,y1);
end;
var x,y:integer;
begin
x:=300;
y:=400;
Fig(x,y-230,x-50,y,x+50,y,10,255,0,0,3);    {красный}
Fig(x-180,y-200,x-100,y,x,y,10,0,0,255,1); {синий}
Fig(x+180,y-200,x,y,x+100,y,10,0,255,0,2); {зеленый}
end.

program korona;
procedure Fig(x1,y1,x2,y2,x3,y3,rd,r,g,b:integer);{rd-радиус кружочков}
begin
pen(1,r,g,b);
brush(1,r,g,b);
line(x1,y1,x2,y2);
line(x1,y1,x3,y3);
line(x3,y3,x2,y2);
fill((x2+x3)div 2,y2-5);
{if k=3 then{красный нужно в трех точках заливать}
{ begin
  fill((x2+5),y2-5);
  fill((x3-5),y2-5);
 end;}
ellipse(x1-rd,y1-rd,x1+rd,y1+rd);
fill(x1,y1);
end;
var x,y:integer;
begin
x:=300;
y:=400;
Fig(x,y-230,x-50,y,x+50,y,10,255,0,0);    {красный}
Fig(x-180,y-200,x-100,y,x,y,10,0,0,255); {синий}
Fig(x+180,y-200,x,y,x+100,y,10,0,255,0); {зеленый}
end.

if k=1 then{красный нужно в трех точках заливать}
 begin
  line(...,...);{координаты точек}
  line(...,...);
  fill((x2+5),y2-5);
  fill((x3-5),y2-5);
 end;

program korona;
procedure Fig(x1,y1,x2,y2,x3,y3,rd,r,g,b,k:integer);{rd-радиус кружочков}
begin
pen(1,r,g,b);
brush(1,r,g,b);
line(x1,y1,x2,y2);
line(x1,y1,x3,y3);
line(x3,y3,x2,y2);
if k=0 then fill((x2+x3)div 2,y2-5)
else {если k=1 то рисуем дополнительные линии и красим из трех точек}
 begin
  line(x2+50,y2,x2+10,y2-45);{координаты точек}
  line(x3-50,y3,x3-10,y3-45);
  fill((x2+x3)div 2,y1+10);
  fill((x2+5),y2-5);
  fill((x3-5),y2-5);
 end;
ellipse(x1-rd,y1-rd,x1+rd,y1+rd);
fill(x1,y1);
end;
var x,y:integer;
begin
x:=300;
y:=400;
Fig(x-180,y-200,x-100,y,x,y,10,0,0,255,0); {синий}
Fig(x+180,y-200,x,y,x+100,y,10,0,255,0,0); {зеленый}
Fig(x,y-230,x-50,y,x+50,y,10,255,0,0,1);    {красный}
end.

program korona;
procedure Fig(x1,y1,x2,y2,x3,y3,rd,r,g,b,k:integer);{rd-радиус кружочков}
begin
pen(3,r,g,b);
brush(1,r,g,b);
line(x1,y1,x2,y2);
line(x1,y1,x3,y3);
line(x3,y3,x2,y2);
fill((x2+x3)div 2,y2-5);
if k=1 then{красный нужно в трех точках заливать}
 begin
  line(x1-1000,y2-1000,x2,y1+1000);{координаты точек}
  fill(x2,y2-5);
  end;
  if k=2 then{красный нужно в трех точках заливать}
 begin
  line(x2,y2,y3,x3);{координаты точек}
  fill((x2+5),y2-5);
  fill((x3-5),y2-5);
 end;
ellipse(x1-rd,y1-rd,x1+rd,y1+rd);
fill(x1,y1);
end;
var x,y:integer;
begin
x:=300;
y:=400;
Fig(x,y-230,x-50,y,x+50,y,10,255,0,0,3);    {красный}
Fig(x-180,y-200,x-100,y,x,y,10,0,0,255,1); {синий}
Fig(x+180,y-200,x,y,x+100,y,10,0,255,0,2); {зеленый}
end.