Составить процедуру рисования фигуры

uses graph;
procedure Fig(x,y,d,c:integer);
{координаты цента, большая диагональ и цвет}
var i:byte;
    a,x1,y1,x2,y2,x3,y3,x4,y4:integer;
begin
setcolor(c);
a:=d div 2;
x1:=x-a;
y1:=y;
x2:=x;
y2:=y-a;
x3:=x1+d;
y3:=y;
x4:=x1+a;
y4:=y+a;
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x4,y4);
line(x1,y1,x4,y4);
x1:=(x1+x2)div 2;
y1:=(y1+y2)div 2;
x2:=(x2+x3)div 2;
y2:=(y2+y3)div 2;
x3:=(x3+x4)div 2;
y3:=(y3+y4)div 2;
x4:=(x4+x-a)div 2;
y4:=(y4+y)div 2;
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x4,y4);
line(x1,y1,x4,y4);
end;
var g,d:integer;
begin
g:=0;
initgraph(g,d,'');
Fig(300,200,200,10);
readln
end.

uses graph;
var w,h,i,x1,y1,x2,y2,x3,y3,x4,y4:integer;
begin
w:=0;
initgraph(w,h,'');
w:=getmaxX div 3;
h:=getmaxY div 3;
x1:=getmaxX;y1:=0;
x2:=getmaxX;y2:=0;
for i:=1 to 6 do
 begin
  setcolor(i);
  if i<=3 then
   begin
    x3:=getmaxX-i*w;
    y3:=0;
    x4:=getmaxX;
    y4:=i*h;
    line(x1,y1,x2,y2);
    line(x1,y1,x3,y3);
    line(x2,y2,x4,y4);
    line(x3,y3,x4,y4);
    setfillstyle(1,i);
    floodfill(x1-5,y1+5,i);
    x1:=x3;
    y2:=y4;
    end
  else
   begin
    x1:=0;
    y1:=h*(i-4);
    x2:=0;
    y2:=y1+h;
    x4:=getmaxX-w*(i-4);
    y4:=getmaxY;
    x3:=x4-w;
    y3:=getmaxY;
    line(x1,y1,x2,y2);
    line(x1,y1,x4,y4);
    line(x2,y2,x3,y3);
    line(x3,y3,x4,y4);
    setfillstyle(1,i);
    floodfill(x1+5,y1+10,i);
    x4:=x3;
    y2:=y1;
   end;
 end;
readln
end.