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

  const
    nmax=100;
  var
    a: array[1..nmax,1..nmax] of integer;
    i,j,sum,k,n: integer;
begin
  write('Введите размер мартицы: ');
  readln(n);
 
  randomize;
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)-4;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
 
  writeln('Положительные элементы над главной диагонолью');
  sum:=0; k:=0;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if (j>i)and(a[i,j]>0) then
      begin
        inc(k);
        sum:=sum+a[i,j];
        write(a[i,j]:4); {для наглядности вывел на экран}
      end
      else write('    ');
    end;
    writeln;
  end;
  writeln('всего элементов ',k,'; их сумма ',sum);
  readln;
end.

var
  a: array[1..100,1..100] of integer;
  i,j,sum,k,n: integer;
begin
  write('Ââåäèòå ðàçìåð ìàðòèöû: ');
  readln(n);
 
  writeln('Ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)-4;
      write(a[i,j]:4);
      if (j>i) and (a[i,j]>0) then
      begin
        sum:=sum+a[i,j];
        inc(k);
      end;
    end;
    writeln;
  end;
  writeln;
 
  writeln('âñåãî ýëåìåíòîâ ',k,'; èõ ñóììà ',sum);
end.