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

readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-4+9*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
writeln;
k:=0;
s:=0;
for i:=1 to n do
if a[i,i]<0 then
 begin
  k:=1;
  for j:=1 to n do
  s:=s+a[i,j];
  writeln('Сумма в строке ',i,'=',s:0:2)
  end;
if k=0 then write('На главной диагонали нет отрицательных элементов');
readln
end.

k:=0;
for i:=1 to n do
if a[i,i]<0 then
 begin
  s:=0;
  k:=1;

   WriteLn('В строке ',i,' сумма элементов = ',s)

begin
repeat
  Write('Введите размер матрицы n (от 1 до ',nmaxm,'):');
  readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-4+9*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
writeln;
k:=0;
s:=0;
for i:=1 to n do
if a[i,i]<0 then
 begin
  k:=1;
  for j:=1 to n do s:=s+a[i,j];
 end;
if k=0 
   then writeln('На главной диагонали нет отрицательных элементов')
   else writeln('Сумма всех строк с отрицательным элементом на главной диагонали = ',s:0:2);
  
readln
end.

const nmax=15;
var
 a:array[1..nmax,1..nmax] of real;
 i,j,k,n:integer;
 s,sa:real;
begin
repeat
 write('n в диапазоне [1..',nmax,'];  n=');
 readln(n)
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-4+9*random;
    write(a[i,j]:6:2)
   end;
  writeln;
 end;
writeln;
k:=0;
sa:=0;
for i:=1 to n do
if a[i,i]<0 then
 begin
  k:=1;
  s:=0;
  for j:=1 to n do
   s:=s+a[i,j];
   writeln('Сумма в строке ',i,'=',s:0:2);
   sa:=sa+s
  end;
if k=0 then write('На главной диагонали нет отрицательных элементов')
else write('Сумма всех найденных строк =',sa:0:3);
readln
end.