В трёхмерном массиве заменить максимальный и минимальный элементы их средним

const
  n = 10;
 
var
  a: array [1..n, 1..n, 1..n] of real;
  k, j, i, imin, imax: integer;
  t: real;
  jmin, jmax: integer;
  kmin, kmax: integer;
 
begin
  randomize;
  WriteLn('Исходный массив:');
  t := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      for k := 1 to n do
      begin
        a[i, j, k] := random(n * n) + n div 2;
        //Write(a[i, j,k]:4);
      end;
    end;
    //writeln;
    t := t + a[i, j, k];
  end;
  imin := 1;
  imax := 1;
  jmin := 1;
  jmax := 1;
  kmin := 1;
  kmax := 1;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      for k := 1 to n do
        if a[i, j, k] > a[imax, jmax, kmax] then 
        begin
          imax := i;
          jmax := j;
          kmax := k;
        end
        else 
        if a[i, j, k] < a[imin, jmin, kmin] then 
        begin
          imin := i;
          jmin := j;
          kmin := k;
        end;
    end;
  end;
  WriteLn('Max: ', a[imax, jmax, kmax]);
  WriteLn('Min: ', a[imin, jmin, kmin]);
  t := t / (n * n * n);
  WriteLn('Average: ', t);
  for i := 1 to n do
    for j := 1 to n do
      for k := 1 to n do
      begin
        if a[i, j, k] = a[imax, jmax, kmax] then 
          a[imax, jmax, kmax] := t;
        if a[i, j, k] = a[imin, jmin, kmin] then 
          a[imin, jmin, kmin] := t;
      end;  
  WriteLn('Max: ', a[imax, jmax, kmax]);
  WriteLn('Min: ', a[imin, jmin, kmin]);
end.