Найти сумму элементов из области матрицы А

Program Matrix;
 
uses  Crt;
const n=7;
var   A : array [1..n, 1..n] of real;
      sum : real;
      i, j, k, m : byte;
      
BEGIN
     ClrScr;
     Randomize;
     for i:=1 to n do
         for j:=1 to n do
             A[i, j]:= Random(50) - 10 + Random;
 
     sum:= 0;
     m:=0;
     for i:=1 to n do
     begin
          k:= i;
          if i<=(n+1-i) then
             for j:=i to n+1-i do
             sum:= sum + A[i, j]
          else
          begin
              m:= m+2;
              repeat
              j:=k-m;
              sum:= sum + A[i, j];
              k:= k+1;
             until j=i
          end
     end;
 
     for i:=1 to n do
     begin
         for j:=1 to n do
             Write(A[i, j]:6:1);
         Writeln
     end;
     Writeln;
     Writeln('sum = ', sum:6:1);
END.