Exercicio 2 com matriz

Program Pzim ;
{2. Faça um algoritmo em que o usuario informe os valores para uma matriz 4x4
 e em seguida efetive a soma dos valores que estão abaixo da diagonal secundária.
O algoritmo deve mostrar os valores que estão abaixo da diagonal secundária e sua soma.

Ex.:
1-5-2-2
7-5-3-2
8-4-6-1
5-4-3-1

Valores a serem usados, mostrados e somados:
- - - -
- - -2
- -6-1
-4-3-1
}
var
m:array[1..4,1..4] of integer;
i,j, soma:integer;
 Begin

 for i:=1 to 4 do
  begin
  for j:=1 to 4 do
  begin
writeln('Digite a matriz : ');          //recebe os elementos da matriz
readln(m[i,j]);
  end;
  end;
for i:=1 to 4 do
  begin
  for j:=1 to 4 do
  begin
  if ((i+j)>= 6) then                 // se i+j >= 6, = condição para o elemento pertencer
  begin                          //a parte inferior da diagonal secundaria
  soma:=soma+m[i,j];        //soma os elementos
  end;
  end;
 
end;
writeln('A soma dos elementos abaixo da diagonal é igual a : ',soma); //mostra
 
 end.