Найти сумму элементов массива в заштрихованной области двумерного массива — Pascal(Паскаль)

program Mas;
uses crt;
const n=5;
var
A:array [1..n, 1..n] of byte;
i,j : 1..n;
sum : word;
Begin
clrscr;
for i := 1 to n do
begin
for j := 1 to n do
begin
A[i,j] := Random (256);
write (A[i,j]:6)
end;
writeln
end;
sum:=0;
for i:=1 to (n div 2 + n mod 2) do
for j:=i to (n-i+1) do
 begin
  sum:=sum + A[i,j];
  writeln('i=',i,'  j=',j,'  sum=',sum);//выводим каждую итерацию
  delay(1000);//задержка в 1 секунду
 end;
writeln ('CyMMa=', sum);
readln;
end.