Вычислить сумму и число элементов матрицы, находящихся под главной диагональю и на ней(PascalABCNET)

[FlayGlam]

Двумерные массивы.
Вычислить сумму и число элементов матрицы, находящихся под главной диагональю и на ней

[newerow1989]

const n=8;
var i,j,n1,n2:integer;
    p:array[1..n,1..n] of real;
    s1,s2:real;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(20)+Random;
         Write(p[i,j]:7:4,'  ');
      end;
      Writeln;
   end;
   Writeln;
   s1:=0;
   s2:=0;
   n1:=0;
   n2:=0;
   For i:=1 to n do
   begin
      For j:=i+1 to n do
      begin
         s1:=s1+p[i,j];
         n1:=n1+1;
      end;
      For j:=1 to i-1 do
      begin
         s2:=s2+p[i,j];
         n2:=n2+1;
      end;
   end;
   Writeln('s1 = ',s1:7:4,'  n1 = ',n1);//над
   Writeln('s2 = ',s2:7:4,'  n2 = ',n2);//под
   Readln;
end.

[FlayGlam]

Пасибо большое

[newerow1989]