Найти сумму элементов матрицы, расположеных ниже побочной диагонали

Program summ array;
{$APPTYPE CONSOLE}
uses SysUtils;
Var A:array[1..10,1..10] of real;
    B:array[1..10] of real;     i,j:byte;
Begin WriteLn('Input n,m'); ReadLn(n,m);
      WriteLn('Input matrics n*m values:');
      for i:=1 to n do
        begin  for j:=1 to m do Read(A[i,j]);  ReadLn;  end;      
      WriteLn('Results:');
      for i:=1 to n do
       begin   B[i]:=0;
           for j:=1 to m do B[i]:=B[i]+A[i,j];
           for j:=1 to m do Write(A[i,j]:7:2);
           WriteLn(' Sum= ',B[i]:7:2);
       end;
     ReadLn;
   End.

sum:=0;
for i:=1 to m do
for j:=1 to n do
if j>n-i+1 then sum:=sum+a[i,j];

uses
  crt;
const
  str=4;{êîëè÷åñòâî ñòðîê}
  sto=4;{êîëè÷åñòâî ñòîëáöîâ}
var
  a:array [1..str,1..sto] of integer;
  i,j,sum:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {íàõîäèì ñóììó ýëåìåíòîâ íèæå побочной äèàãîíàëè}
  for i:=2 to str do
    for j:=sto downto sto-i+2 do
      inc(sum,a[i,j]);
  writeln('Ñóììà = ',sum)
end.

uses
  crt;