Заполнить двумерный массив размером 7*7 следующим образом :- Pascal(Паскаль)

1 0 0 0 0 0 1
0 1 0 0 0 1 0
0 0 1 0 1 0 0
0 0 0 1 0 0 0
0 0 1 0 1 0 0
0 1 0 0 0 1 0
1 0 0 0 0 0 1

Uses
  CRT;

Const
  n = 7;

var
  a: array [1 .. n, 1 .. n] of integer;
  i, j: integer;

Begin
  FOR i := 1 to n DO
  begin
    FOR j := 1 to n DO
    begin
      if (i = j) or (j = n - i + 1) then
        a[i, j] := 1
      else
        a[i, j] := 0;
      write(a[i, j]:3);
    end;
    writeln;
  end;
  Readln

End.