Заполнить массив по образцу

uses crt;
const n=5;
var a: array [1..n,1..n] of byte;
    i,j: byte;
begin
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        if (i=j) or (i+j=n+1) then a[i,j]:=1 else a[i,j]:=0;
        write(a[i,j]);
        end;
    writeln;
    end;
write('Enter to continue...');
readln;
clrscr;
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        if i<>j then a[i,j]:=1 else a[i,j]:=0;
        write(a[i,j]);
        end;
    writeln;
    end;
write('Enter to continue...');
readln;
clrscr;
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]);
        end;
    writeln;
    end;
write('Enter to continue...');
readln;
clrscr;
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]:=0 else a[i,j]:=1;
        write(a[i,j]);
        end;
    writeln;
    end;
write('Enter to continue...');
readln;
end.