На основной диагонале все отрицательные элементы поменять нулями.

Var a: array  [0..9, 0..9] of real; 
   i, j: integer;
begin
     for i := 0 to 9 do
         for j := 0 to 9 do
             a[i, j] := random(999) - 500;
     for i := 0 to 9 do
         for j := 0 to 9 do
             if ((i = j) and (a[i, j] lt; 0)) then a[i, j] := 0;             
     for i := 0 to 9 do
     begin
         writeln(); 
        for j := 0 to 9 do             write(a[i,j]:5:0);
     end;
end.