Элементы матрицы, лежащие ниже главной диагонали заменить средним арифметическим отрицательных элементов

Var X:array[1..20,1..20] of real;
    i,j,n,k:byte;
    sr:real;
Begin
    write('Введите N: ');readln(n);
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin 
        X[i,j]:=random*10-5;
        write(X[i,j]:6:2);
      End;
      writeln;
   End;
   i:=2;
   While i<=n do
   Begin
     For j:=1 to n do
      if X[i,j]<0 then 
      Begin
        inc(k);
        sr:=sr+X[i,j];
      End;
      inc(i,2);
   End;
   if k>0 then 
   Begin
     sr:=sr/k;
     writeln('Среднее арифметическое отрицательных элементов, стоящих в четных строках = ',sr:0:2);
     writeln('Преобразованная матрица');
     For i:=1 to n do
      X[i,i]:=sr;
     For i:=1 to n do
     Begin
       For j:=1 to n do
        write(X[i,j]:6:2);
       writeln;
     End;
   End
   else writeln('Нету отрицательных в чётных строках');
   readln;
End.

Var X:array[1..20,1..20] of real;
    i,j,n,k:byte;
    sr:real;
Begin
    write('Введите N: ');readln(n);
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin 
        X[i,j]:=random*10-5;
        write(X[i,j]:6:2);
      End;
      writeln;
   End;
   i:=2;
   While i<=n do
   Begin
     For j:=1 to n do
      if X[i,j]<0 then 
      Begin
        inc(k);
        sr:=sr+X[i,j];
      End;
      inc(i,2);
   End;
   if k>0 then 
   Begin
     sr:=sr/k;
     writeln('Среднее арифметическое отрицательных элементов, стоящих в четных строках = ',sr:0:2);
     writeln('Преобразованная матрица');
     For i:=2 to n do
      For j:=1 to i-1 do
       X[i,j]:=sr;
     For i:=1 to n do
     Begin
       For j:=1 to n do
        write(X[i,j]:6:2);
       writeln;
     End;
   End
   else writeln('Нету отрицательных в чётных строках');
   readln;
End.