Задача на использование графического режима в Pascal

program lab_8;
 uses graph;
 var gd,gm,getmaxX,getmaxY,x1,x2,x3,x4,y1,y2,y3,y4,i,k:integer;
 
begin
 gd:=DETECT;
 initgraph(gd,gm,'');
 setbkcolor (black);
 setcolor(white);
 x1:=1;
 y1:=1;
 x3:=16;
 x4:=1;
 k:=0;
 for k:=1 to 3 do
 begin
 i:=0;
 for i:= 1 to 2 do
  begin
   x2:=x1 + 24;
   y2:=y1 + 200;
   x4:=x3 + 16;
   y4:=y3 + 133;
   setcolor(0);
   setfillstyle(1,0);
   rectangle (x1,y1,x2,y2);
   setcolor(15);
   setfillstyle(1,15);
   rectangle (x3,y3,x4,y4);
   x1:=x2;
   y1:=y2 - 200;
   x3:=x4 + 8;
   y3:=y4 - 133;
  end;
  i:=3;
  rectangle (x1,y1,x2,y2);
  x1:=x2;
  y1:=y2 - 200;
  x3:=x4 + 32;
  y3:=y4 - 133;
  for i:= 4 to 6 do
  begin
   x2:=x1 + 24;
   y2:=y1 + 200;
   x4:=x3 + 16;
   y4:=y3 + 133;
   rectangle (x1,y1,x2,y2);
   rectangle (x3,y3,x4,y4);
   x1:=x2;
   y1:=y2 - 200;
   x3:=x4 + 8;
   y3:=y4 - 133;
  end;
  i:=7;
  rectangle (x1,y1,x2,y2);
  x1:=x2;
  y1:=y2 - 200;
  x3:=x4 + 32;
  y3:=y3 - 133;
  end;
 readln;
 closegraph;
end.