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

program Matritsa;
Var a:array[1..100, 1..100] of Integer;
n,z:integer;
i,j:byte;

Begin
 WriteLn('Vvedite razmernost matritsi');
 ReadLn(n);
 z:=1;
For i:=0 to n do
begin
 For j:=1 to n do
   begin
    if ((j<=z) or (j>=n-z)) then
    a[i,j]:=1 else a[i,j]:=0;
    end;
 if ((i<n/2)) then
   z:=z+1
else
   z:=z-1
end;

  WriteLn;
 WriteLn('Rezultat:');
 for i:=0 to n do
 Begin for j:=1 to n do  Write (a[i,j],'  ');
 WriteLn;
 end;
 ReadLn

 end.

kess, в чем именно состоит вопрос?

заданная матрица не формируется... в последних столбцах (

Добавлено через 16 мин.
выдаёт два столбца единиц

Во-первых, у тебя почему-то цикл по i начинается с 0, а не с единицы (оба цикла по i, расчет и вывод)
Во-вторых неверно заполняется кое-где..
Я бы сделал вот так:

program Matritsa;
Var
  a:array[1..100, 1..100] of Integer;
  n:integer;
  i,j:byte;

Begin
  WriteLn('Vvedite razmernost matritsi');
  ReadLn(n);
  z:=1;
  For i:=1 to n do 
    For j:=1 to n do
      if (j<=i)and(j<=n-i+1)or(j>=n-i+1)and(j>=i) then a[i,j]:=1 else a[i,j]:=0;
  WriteLn;
  WriteLn('Rezultat:');
  for i:=1 to n do Begin
    for j:=1 to n do  Write (a[i,j],'  ');
    WriteLn;
  end;
  ReadLn
end.

Lapp, спасибо большое)))

kess, обрати внимание также на форматирование программного текста в моих примерах. Постарайся уловить основные принципы и не делать больше ошибок. Это поможет тебе..