Разработать алгоритм и программу поиска положительных элементов в главной диагонали матрицы

Uses crt;
var
 Matr: array [ 1 .. 10 , 1 .. 10 ] of integer;
 i, j, n, m, index_i, max, sum, temp: integer;
begin
clrscr;
randomize;
repeat
  write('Enter n(n<=10):');readln(n);
  write('Enter m(m<=10):');readln(m);
until ( n in [ 1 .. 10 ] ) and ( m in [ 1 .. 10 ] );
for i:=1 to n do begin
 for j:=1 to m do begin
     Matr[i,j]:=random(21)-10;
     write(Matr[i,j]:5);
 end;
 writeln;
end;
sum:=0;
for i:=1 to n do begin
 for j:=1 to m do begin
     if ( i < j ) and ( Matr[i,j] > 0 ) then sum:=sum+Matr[i,j];
 end;
end;
writeln(sum);
max:=Matr[4,i]; index_i:=1;
for i:=1 to n do begin
   if ( Matr[4,i] > max ) and ( Matr[4,i] > 0 ) then begin
      max:=Matr[4,i];
      index_i:=i;
   end;
end;
writeln(max);
temp:=Matr[4,index_i];
Matr[4,index_i]:=sum;
sum:=temp;
for i:=1 to n do begin
 for j:=1 to m do begin
     write(Matr[i,j]:5);
 end;
 writeln;
end;
readkey;
end.

uses
  crt;
 
var
  Matr: array [1..10, 1..10] of integer;
  i, j, n, count: integer;
 
begin
  clrscr;
  randomize;
  repeat
    write('Enter n(n<=10):');
    readln(n)
  until (n in [1.. 10] );
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      Matr[i, j] := random(21) - 10;
      write(Matr[i, j]:5)
    end;
    writeln
  end;
  writeln;
  count := 0;
  writeln('Положительные элементы главной диагонали:');
  for i := 1 to n do
    if Matr[i, i] > 0 then 
    begin
      write(' ', Matr[i, i]);
      inc(count)
    end;
  if count = 0 then writeln('Положительных элементов нет');
  readln;
end.