Как найти массив чрезмерности NxN. Найти малый элемент в заштрихованной области.

Как отыскать массив чрезмерности NxN. Отыскать малый элемент в заштрихованной области. Границы числятся принадлежащим заштрихованной области? в моем случае (К) то есть правый треугольник.

uses crt;

размер массива
const n = 3;
объявляем переменные
var
матрица размера 9x9
a: array[1..n, 1..n] of integer;
сумма
sum: integer;
индексы для циклов
i, j: integer;

begin
clrscr;
randomize;

заполняем массив
for i := 1 to n do
for j := 1 to n do
a[i,j] := random(10);

печатаем массив
writeln;
writeln('Massiv');
for i := 1 to n do
begin
for j := 1 to n do
write(a[i,j]:3);
writeln;
end;

находим сумму заштрихованной области
Правая половина
sum := 0;
for i := 1 to n div 1+1 do
for j := i to n - i + 1 do
sum := sum + a[i, j];

Печатаем сумму заштрихованной области
writeln;
writeln;
writeln('Summa = ', sum);

readln;
end.

в итоге выходит что он считает верхний треугольник то есть как в (Е)
я более чем уверен дело в параметрах цикла раздела "находим сумму заштрихованной области"