Нарисовать человека закрашенными клеточкам — Pascal(Паскаль)

uses graph;
const fig:array[1..13,1..11] of byte=
      ((0,0,0,0,1,1,1,0,0,0,0),
       (0,0,0,0,1,1,1,0,0,0,0),
       (0,0,0,0,0,1,0,0,0,0,0),
       (0,0,1,1,1,1,1,1,1,0,0),
       (0,1,1,1,1,1,1,1,1,1,0),
       (0,1,1,1,1,1,1,1,1,1,0),
       (1,0,0,1,1,1,1,1,0,0,1),
       (0,0,1,1,1,1,1,1,1,0,0),
       (0,0,1,1,1,1,1,1,1,0,0),
       (0,0,1,1,1,1,1,1,1,0,0),
       (0,0,1,1,1,0,1,1,1,0,0),
       (0,0,0,1,1,0,1,1,0,0,0),
       (0,0,0,1,1,0,1,1,0,0,0));
procedure Kvadrat(x,y,d:integer);
begin
setcolor(8);
rectangle(x,y,x+d,y+d);
setfillstyle(1,8);
floodfill(x+2,y+2,8);
end;
var x,y,d,i,j:integer;
begin
x:=0;
initgraph(x,y,'');
d:=20;
x:=getmaxX div 2-d*5-d div 2;
y:=120;
setbkcolor(15);
for i:=1 to 13 do
for j:=1 to 11 do
if fig[i,j]=1 then Kvadrat(x+(j-1)*d,y+(i-1)*d,d);
readln
end.