Помогите с Паскалем подалуйтса

[LLIypLLIyH]

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

[Greblin]

var i, j: integer;
    Sum: integer;
    N: integer; //размерность массива

Sum := 0;
for i := 2 to N do
  for j := N downto N+2-i do
    Sum := Sum + a[i, j];

[WOLFak]

var
 a:array[1..100,1..100]of longint;
 n,i,j,s:longint;
begin
 read(n);
 for i:=1 to n do
  for j:=1 to n do
   read(a[i,j]);
   {
   n:=10;
   randomize;
   for i:=1 to n do
    for j:=1 to n do
     a[i,j]:=random(100)+1;
   }
   s:=0;
   for i:=2 to n do
    for j:=n-i+2 to n do
     begin
      s:=s+a[i,j];
     end;
     writeln(s);
end.

[LLIypLLIyH]

не работает чё то, экран пустой показывает

[LLIypLLIyH]

Всё я сделал! СПАСИБО!