найти сумму элементов от побочной диагонали

s:=0;
for i:=1 to n do
s:=s+...

s:=0;
for i:=1 to n-1 do
for j:=1 to n-i do
s:=s+x[i,j];

Program TwoSums;
   Uses Crt;
   Var A       : Array [1..10, 1..10] of Real;
       S1, S2  : Real; 
       N, i, j : Integer;
 {--------------------------------------------}
  Procedure InputOutput;
    Begin 
      ClrScr;
      Write('input N - '); ReadLn(N);
      For i := 1 to N do 
        For j := 1 to N do
          begin Write('A[' , i , ', ' , j , '] = ? ');
                ReadLn(A[i, j])
          end; WriteLn;
 
      ClrScr; WriteLn(' matriX');
      For i := 1 to N do 
        begin
          For j := 1 to N do Write(A[i, j] : 5 : 1);
          WriteLn
        end; WriteLn
    End; { of InputOutput }
 {--------------------------------------------}
  Procedure Under;
    Begin 
    S1 := 0;
      For i := 2 to N do
        For j := 1 to i-1 do
          S1 := S1 + A[i, j];
      WriteLn('answer :');
      WriteLn('summa under diag =', S1:5:1);
    End;
 {--------------------------------------------}
  Procedure Over;
    Begin 
      S2 := 0; 
      For i := 1 to N-1 do
        For j := i+1 to N do
          S2 := S2 + A[i, j];
      WriteLn('summa up diag =', S2:5:1);
      ReadLn
    End;
 {--------------------------------------------}
 BEGIN
   InputOutput; 
   Under;       
   Over ;       
 END.