двумерные массивы. сформировать матрицу по образцу

[unbanned]

вообщем я никак не могу понять условие


может кто нить подсказать какого вида должна быть матрица, например при
n=8;10

вообщем вот такой бред получился...
и только для нечетных n

var
  i, j, n, k: integer;

begin
  write('Введите N=');readln(n);
  writeln;
  k := 0;
  for i := 1 to n do 
  begin
    if i < (n div 2) + 1 then
    begin
      k := k + 1;
      for j := 1 to n do
        if (j <= k) or (j > n - k) then write('1 ')
        else write('0 ');
    end
    else
    begin
      if i = (n div 2) + 1 then
      begin
        for j := 1 to n do
          write('1 ');
        k := (n div 2);
      end
      else
      begin
        for j := 1 to n do           
          if j <= k then write('1 ')
          else write('0 ');       
        k := k - 1; 
      end;
    end;
    writeln;    
  end;
end.