написать программу нахождения суммы элементов двумерного массива, расположенных ниже главной диагонали

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;
  {находим сумму элементов ниже главной диагонали}
  sum:=0;
  for i:=2 to str do
    for j:=1 to i-1 do
      inc(sum,a[i,j]);
  writeln('Сумма = ',sum)
end.

uses
  crt;
const
  str=4;{количество строк}
  sto=4;{количество столбцов}
var
  a:array [1..str,1..sto] of integer;
  i,j: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;
end.