Сформировать квадратную матрицу по заданному образцу:- 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 byte;
    n,i,j:byte;
begin
clrscr;
write('Razmer matricy n=');readln(n);
writeln('Matrica:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if((j>=i)and(j<=(n-i+1)))
    or(j<=i)and(j>=(n-i+1)) then a[i,j]:=1
    else a[i,j]:=0;
    write(a[i,j]:2,' ');
   end;
  writeln;
 end;
readln
end.