Написать пример программы с вложенными циклами

const
  n = 10;
 
var
  a: array [1..n, 1..n, 1..n] of integer;
  k, j, i, imin, imax: integer;
  t: integer;
  jmin, jmax: integer;
  kmin, kmax: integer;
 
begin
  randomize;
  WriteLn('Исходный массив:');
  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);
        //Write(a[i, j,k]:4);
      end;
    end;
    //writeln;
  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 := a[imin, jmin, kmin];
  a[imin, jmin, kmin] := a[imax, jmax, kmax];
  a[imax, jmax, kmax] := t;
  WriteLn('Max:', a[imax, jmax, kmax]);
  WriteLn('Min:', a[imin, jmin, kmin]);
end.