Сформировать матрицу по образцу (Delphi)

[Shenan]

Сформировать матрицу по образцу:
Безымянный.png

[Serge_Bliznykov]

вот код на Паскаль, под Delphi сами переделаете, как Вам нужно:

const N = 7;
var A : array[1..N, 1..N] of integer;
    i,j : integer;
begin

for i:=1 to N do
  for j:=1 to N do
    if (i <= ((N+1) div 2)) and (j>=i) and (j<=N+1-i)  {верхняя половина матрицы}
      then A[i,j] := 1
    else
     if (i > ((N+1) div 2))
           and (j>=(N+1-i)) and (j<=i)  {нижняя половина матрицы}
      then A[i,j] := 1
      else A[i,j] := 0;

  {вывод матрицы}
  for i:=1 to N do begin
    for j:=1 to N do Write(A[i,j]:1,' ');
    WriteLn;
  end;
   
readln;
end.