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

var  a: array [1..10, 1..10] of integer;  i, j: byte;beginrandomize;writeln(' *** Исходный массив *** ');for i := 1 to 10 dobegin    for j := 1 to 10 do    begin        a[i, j] := random(41)-20;        write(a[i, j]:5);    end;    writeln;end;writeln('Положительные эл. главной диагонали: ');for i := 1 to 10 do  for j := 1 to 10 do    if ((i = j) and (a[i, j] > 0)) then       write(a[i, j], ' ');end.