Сформировать квадратную матрицу по заданному образцу:- Pascal(Паскаль)

1 1 1 … 1 1 1
0 1 1 … 1 1 0
0 0 1 … 1 0 0
…………………………
0 0 1 … 1 0 0
0 1 1 … 1 1 0
1 1 1 … 1 1 1 

uses crt;
var a:array[1..20,1..20] of integer;
    x:integer;
    n,i,j:byte;
begin
clrscr;
write('n=');readln(n);
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if ((j>i)and(j<n-i+1))or((j>n-i+1)and(j<i))then a[i,j]:=0
    else a[i,j]:=1;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.