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

Var
  a: array [1..10, 1..10] of integer;
  i, j: byte;
begin
randomize;
writeln(' *** Начальный массив *** ');
for i := 1 to 10 do
begin
    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] gt; 0)) then
      write(a[i, j], ' ');
end.