Подпрограммы и обработка матриц

[McJordan]

Задана квадратная матрица A размером nxn (n<=10), состоящая из действительных элементов. Найти сумму всех ее отрицательных элементов и заменить ею все диагональные элементы этой
матрицы.

[Stranger333]

const n=3;
var a : array [1..n,1..n] of real;
    i,j:integer; s:real;
begin
  for i:=1 to n do
    for j:=1 to n do
      begin
        writeln('a[',i,',',j,']=');
        readln(a[i,j]);
      end;
  s:=0;
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]<0 then s:=s+a[i,j];
  for i:=1 to n do
    for j:=1 to n do
      if (i=j) or (i+j=n+1) then a[i,j]:=s;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          write(a[i,j]:3:2);
        end;
      writeln;
    end;
    readln;
end.

[Stilet]

Предлагаю упростить написанное:

const n=3;
var a : array [1..n,1..n] of real;
    i,j:integer; s:real;
begin
  s:=0;
  for i:=1 to n do
    for j:=1 to n do
      begin
        a[i,j]:=50-random(100);
        writeln('a[',i,',',j,']=',a[i,j]:5:2);
        if a[i,j]<0 then s:=s+a[i,j];
      end;

  writeln;
  for i:=1 to n do  a[i,i]:=s;
  for i:=1 to n do for j:=1 to n do
        begin
          write(a[i,j]:10:2);
        end;
      writeln;
    end;
    readln;
end.