Рисование радуги - Pascal ABC

uses graphABC;
const c: array [1..7,1..3] of byte=((255,0,0),(239,127,26),(255,255,0),(0,255,0),(0,160,227),(0,0,255),(50,50,133));
var i: byte;
 
procedure ColArc(x,y: integer; r: integer; nc: byte);
begin
SetPenColor(rgb(c[nc,1],c[nc,2],c[nc,3]));
Arc(x,y,r+10,0,180);
Arc(x,y,r-10,0,180);
line(x-r-11,y-2,x-r+11,y-2);
line(x+r-11,y-2,x+r+11,y-2);
floodfill(x,y-r,rgb(c[nc,1],c[nc,2],c[nc,3]));
end;
 
begin
setwindowsize(500,300);
for i:=1 to 7 do
    ColArc(250,300,100+(i*20),i);
end.