В каждой строке матрицы найти элемент с min модулем разности со средним геометрическим модулей всех элементов

var
  a: array[1..10, 1..12] of integer;
  i, j, nr: integer;
  r: array[1..12]of real;
  sx: real;
 
begin
  for i := 1 to 10 do
    for j := 1 to 12 do
      a[i, j] := random(1, 2);
  
  for i := 1 to 10 do
    for j := 1 to 10 do
      case a[i, j] of
        1: a[i, j] := random(-20, -1);
        2: a[i, j] := random(1, 20);
      end;
  
  for i := 1 to 10 do
  begin
    sx := 1;
    
    for j := 1 to 12 do
      sx := sx * power(abs(a[i, j]), 1 / 10);
    
    for j := 1 to 12 do
      r[j] := abs(a[i, j] - sx);
    
    nr := 1;
    
    for j := 1 to 12 do
      if r[j] > r[nr] then nr := j;
    
    for j := 1 to 12 do
      write(a[i, j], ' ');
    write('    Элемент: ', a[i, nr], ', модуль искомой разности:', r[nr]);
    writeln;
  end;
end.