Создать изображение в виде "1" и "0", Заполнить массив Опции

[Gl00M]

Как уже Volvo подсказал, задача "Заполнить массив n на n по следующей схеме:"

1111111
0111110
0011100
0001000
0011100
0111110
1111111

решается давольно таки легко...
а как решить задачу по схеме:

111101111
111000111
110000011
100000001
000111000
100000001
110000011
111000111
111101111

P.S. Вот что подсказал по поводу первой:

Код

function min(a, b: integer): integer;
begin
  min := a; if b < a then min := b;
end;
function max(a, b: integer): integer;
begin
  max := a; if b > a then max := b;
end;
begin
  ...
  For i:=1 to n do begin
    for j := min(1 + i - 1, n - i + 1) to max(1 + i - 1, n - i + 1) do
      a[i, j] := 1;
  end;
  { ... и печатай матрицу ... }
  ...
end.

За что ему спасибо!

И, кто поможет мне, тоже отдельная благодарностЬ! )))

[volvo]

...
  k: integer;
...

begin

  for i := 1 to n do begin
    if i <= n div 2 then
      for j := 1 to n do begin
        if (i = 1) or (i = (n div 2)) then a[i, j] := 1
        else if (j < 3) or (j > n - 2) then a[i, j] := 1
      end
    else begin
      for j := 0 to 1 do a[i, (n div 2) + j + 1] := 1;
      k := i - (n div 2);
      if (k > 1) and (k < 4) then begin
        a[i, (n div 2) + (n mod 2) + (3 - k) + 2] := 1;
        a[i, (n div 2) + (n mod 2) - (3 - k) - 1] := 1;
      end;
    end;
  end;
...

?