Поменять местами максимальный и минимальный по модулю элементы

const
  n = 5;
 
var
  matrix: Array[1..n, 1..n] of real;
  imax, imin, jmax, jmin, i, j: integer;
  temp, max, min: real;
 
begin
  Randomize;
  max := 0;
  min := MaxInt;
  for i := 1 To n Do
  begin
    for j := 1 To n Do
    begin
      matrix[i, j] := i * j * sin(0.5 * i * j);
      Write(matrix[i, j]:8:2);
      if (Abs(matrix[i, j]) > max) Then
      begin
        max := Abs(matrix[i, j]);
        imax := i;
        jmax := j
      end;
      if (Abs(matrix[i, j]) < min) Then
      begin
        min := Abs(matrix[i, j]);
        imin := i;
        jmin := j
      end
    end;
    WriteLn
  end;
  Writeln('Максимальный по модулю  элемент: matrix[', imax, ',', jmax, '] = ', max:8:2);
  Writeln('Минимальный по модулю элемент: matrix[', imin, ',', jmin, '] = ', min:8:2);
  {Обмен}
  temp := matrix[imax, jmax];
  matrix[imax, jmax] := matrix[imin, jmin];
  matrix[imin, jmin] := temp;
  {Вывод новой матрицы}
  for i := 1 To n Do
  begin
    for j := 1 To n Do 
      Write(matrix[i, j]:8:2);
    WriteLn;
  end;
end.