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

program iii;
 var A:array[1..12,1..12]of integer;
 s,k,j,i,n:integer;
 begin
  writeln('число строк');
  readln(n);
  writeln('число столбцов');
  readln(n);
  for i:=1 to n do
   for j:=1 to n do
    begin
     writeln('A[',i,',',j,']=');
     readln(A[i,j]);
    end;
  for i:=1 to n do
   begin
    for j:=1 to n do
    write(A[i,j]:5);
    writeln;
   end;
 K:=0;
 s:=0;
  for i:=2 to n do
   for j:=1 to i-1 do
    begin
    s:=s+a[i,j];
    k:=k+1;
    end;
  write('k=',k);
  writeln;
  write('S=',s);
 end.

s:=a[2,1];
for i:=3 to n do
begin
  for j:=1 to i-1 do
    s:=s+a[i,j];
end;

Uses
 CRT;
Const
 nmax=12;
var
 a:array[1..nmax,1..nmax] of integer;
 i,j,n,kol:integer;
 sum:real;
Begin
ClrScr;
repeat
 write('N: ');
 readln(n);
until n in [1..nmax];
sum:=0;
kol:=0;
randomize;
FOR i:= 1 to n DO
begin
 FOR j:=  1 to n DO
 begin
  a[i,j]:=random(10)-3;
  write(a[i,j]:3);
  if i>=j then
  begin
   inc(kol);
   sum:=sum+a[i,j];
  end;
 end;
writeln;
end;
writeln;
writeln('Sum:=',sum,'; Kol:=',kol);
Readln
End.