Сформировать квадратную матрицу по заданному образцу (Изображение внутри)

[Bom1234]

Сформировать квадратную матрицу (nxn) по заданному образцу;

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
const n=11;
var p:array[1..n,1..n] of byte;
    i,j:integer;
begin
   For i:=1 to n do
      For j:=1 to n do
         If (i=j) or (i=n-j+1) then
            p[i,j]:=1 else
            p[i,j]:=0;
   Label1.Caption:='';
   For i:=1 to n do
   begin
      For j:=1 to n do
         Label1.Caption:=Label1.Caption+'  '+IntToStr(p[i,j]);
      Label1.Caption:=Label1.Caption+#13#10;
   end;
end;

[Bom1234]

Спасибо большое!!!

[newerow1989]