В матрице заменить отрицательные элементы, расположенные выше диагонали, средним геометрическим положительных

program rty;
var
d: array[1..8,1..8] of real;
i,j: integer;
n,x: real;
begin
  for i:=1 to 8 do
  for j:=1 to 8 do 
    d[i,j]:=random(2,5);
  for i:=1 to 8 do begin
  for j:=1 to 8 do
    write(d[i,j]:4);//Вывод элементов 2-мерного массива
    writeln;
  end;
  Writeln;
  n:=0;
  x:=1;
  for i:=1 to 8 do begin
  for j:=1 to 8 do 
    if i<j then begin //выбор элементов, которые выше главной диагонали 
      If d[i,j]>0 then begin //выбор положительных элементов
        n:=n+1;//количество положительных
        x:=x*d[i,j];//произведение положительных
        end;
      d[i,j]:=power(x,1/n);//присвоение отрицательным элементам среднего геометрического положительных
    end;
  end;
  for i:=1 to 8 do begin
  for j:=1 to 8 do
    write(d[i,j]:7:3);//Вывод элементов 2-мерного массива
    writeln;
  end;
end.

program rty;
const m=8;
var d: array[1..m,1..m] of real;
    i,j,n: integer;
    x: real;
begin
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    d[i,j]:=-5+random*10;
    write(d[i,j]:6:2);//Вывод элементов 2-мерного массива
   end;
  writeln;
 end; 
 n:=0;
 x:=1;
 for i:=1 to m-1 do
 for j:=i+1 to m do
 If d[i,j]>0 then 
  begin //выбор положительных элементов
   n:=n+1;//количество положительных
   x:=x*d[i,j];//произведение положительных
  end;
 if n=0 then 
  begin
   write('Выше главной диагонали положительнх элементов нет');
   exit
  end; 
x:=power(x,1/n);//среднее геометрическое положительных выше диагонали
writeln('Преобразованная матрица');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    if j>i then d[i,j]:=x;
    write(d[i,j]:6:2);//Вывод элементов 2-мерного массива
   end; 
  writeln;
 end;
end.

for i := 2 to m do
    for j := 1 to i - 1 do