В двумерном массиве проанализировать элемент на главной диагонали

  for i := 1 to n do //находим необхдимый элемент главной диагонали. Chislo - его значение
    for j := 1 to m do 
    begin
      if (i = j) AND (A[i,j]=chislo) then
        if A[i, j] > 0 then
          //...........
          if A[i, j] <= 0 then
      //...........
    end;

program dvummas;
uses crt;
const N=5;
var A:array [1..N,1..N] of real;
i,j:integer;
sr,sum:real;
 
BEGIN
clrscr;randomize;
for i:=1 to N do
   for j:=1 to N do
A[i,j]:=random(10)-4;
readkey;
writeln;
for i:=1 to N do begin
  for j:=1 to N do
write(A[i,j]:4);
writeln;
end;
readkey;
 for i := 1 to N do
    for j := 1 to N do
    begin
      if (i = j)  then
        if A[i, j] > 0 then
          for j:=1 to N do begin
          sum:=sum+A[i,j];
          sr:=sum/N;
          A[i,j]:=sr;
          if A[i, j] <= 0 then
          for j:=1 to n do
          A[i,j]:=0;
          end;
          end;
 for i:=1 to N do begin
  for j:=1 to N do
write(A[i,j]:4);
end;
readkey;
 END.

program dvummas;
uses crt;
const N=5;
var A:array [1..N,1..N] of real;
    i,j,k:integer;
    sr:real;
BEGIN
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to N do
 begin
  for j:=1 to N do
   begin
    A[i,j]:=-4+10*random;
    write(A[i,j]:6:2);
   end;
  writeln;
 end;
for i := 1 to N do
for j := 1 to N do
if j=i then
 begin
  if A[i,j]>=0 then
   begin
    sr:=0;
    for k:=1 to N do
    sr:=sr+A[k,j];
    A[i,j]:=sr/N;
   end
  else
   for k:=1 to N do
   A[k,j]:=0;
  end;
writeln('Измененная матрица:');
for i:=1 to N do
 begin
  for j:=1 to N do
  write(A[i,j]:6:2);
  writeln;
 end;
readkey;
end.