При помощи процедур и функций модуля Graph нарисовать градусник

uses graph,crt;
procedure grad(x,y,d,c:integer);
var xc,yc,i:integer;
begin
setcolor(15);
rectangle(x,y,x+d,y+d);
xc:=x+d div 2;
yc:=y+d-20;
setcolor(c);
rectangle(xc-25,yc-d+30,xc+25,yc+10);
setfillstyle(1,c);
floodfill(xc,yc+5,c);
setcolor(8);
setlinestyle(0,0,3);
line(xc-20,yc-d+90,xc+20,yc-d+90);
setlinestyle(0,0,1);
for i:=1 to 5 do
 begin
  line(xc-15,yc-d+90-10*i,xc+10,yc-d+90-10*i);
  line(xc-15,yc-d+90+10*i,xc+10,yc-d+90+10*i);
 end;
setcolor(12);
setfillstyle(1,12);
circle(xc,yc,4);
floodfill(xc,yc,12);
rectangle(xc-2,yc-d+80,xc+2,yc);
floodfill(xc,yc-d+90,12);
setcolor(7);
rectangle(xc-2,yc-d+40,xc+2,yc-d+79);
end;
var x,y,d,i,j,c:integer;
begin
initgraph(x,y,'');
y:=10;
d:=getmaxY div 3-10;
c:=1;
for i:=1 to 3 do
 begin
  x:=100;
  for j:=1 to 3 do
   begin
    c:=c+1;
    if c=4 then c:=5;
    if c=7 then c:=9;
    if c=12 then c:=13;
    grad(x,y,d,c);
    x:=x+d
   end;
  y:=y+d
 end;
readkey
end.