Исправьте, пожалуйста, ошибку в программе - PascalABC.NET

Формулировка задачи:

program z1;
const n=7;
var a:array [1..n,1..n] of integer;
i,j:integer;
begin
for  i:=1 to n do
for  j:=1 to n do
if (i=j) then a[i,j]:=0;
if (i+j=n+1) then a[i,j]:=5; 
if (i<j) and ((i+j)<(n+1)) then a[i,j]:=1;
if (i>j) and ((i+j)>(n+1)) then a[i,j]:=1; 
if (i>j) and ((i+j)<(n+1)) then a[i,j]:=2;
if (i<j) and ((i+j)>(n+1)) then a[i,j]:=2;
for  i:=1 to n do
begin
for  j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.

Решение задачи: «Исправьте, пожалуйста, ошибку в программе»

Листинг программы

for  i:=1 to n do
for  j:=1 to n do
if (i=j) then a[i,j]:=0
else if (i+j=n+1) then a[i,j]:=5
else if (i<j) and ((i+j)<(n+1)) then a[i,j]:=1
else if (i>j) and ((i+j)>(n+1)) then a[i,j]:=1
else if (i>j) and ((i+j)<(n+1)) then a[i,j]:=2
else if (i<j) and ((i+j)>(n+1)) then a[i,j]:=2;

Объяснение кода листинга программы

В данном коде выполняется заполнение матрицы a значениями. Есть несколько условий, которые определяют конкретное значение ячейки матрицы:

Если i равно j (то есть, это диагональ), то значение ячейки a[i,j] устанавливается равным 0.
Если i и j равны n и (n+1) (то есть, это нижняя сторона прямоугольника), то значение ячейки a[i,j] устанавливается равным 5.
Если i меньше j и (i+j) меньше (n+1) (то есть, это левый верхний треугольник), то значение ячейки a[i,j] устанавливается равным 1.
Если i больше j и (i+j) больше (n+1) (то есть, это правый нижний треугольник), то значение ячейки a[i,j] устанавливается равным 1.
Если i больше j и (i+j) меньше (n+1) (то есть, это верхний треугольник), то значение ячейки a[i,j] устанавливается равным 2.
Если i меньше j и (i+j) больше (n+1) (то есть, это нижний треугольник), то значение ячейки a[i,j] устанавливается равным 2. Таким образом, данный код создает матрицу a, заполняя ее значениями в соответствии с указанными условиями.