сформировать квадратную матрицу порядка n по заданному образчику решения 1 0 0

Const
  n = 10;
var
  matrix : array [1..n] of array [1..n] of integer;
  i, j, max : integer;
begin
  формирование матрицы
  for j := 1 to n do
  begin
    if j lt;= Trunc(n / 2) then       находим заключительный индекс для вставки 1
      max := j       
    else
      max := n - j + 1;
    for i := 1 to max do                          наполняем линию единицами
    begin
      matrix[j][i] := 1;
      matrix[j][n - i + 1] := 1;
    end;
  end;
  вывод матрицы (если не необходимо, удалите код)
  for j := 1 to n do
  begin
    for i := 1 to n do
      write(matrix[j][i], ' ');
    writeln;
  end;      
end.