В матрице поменять местами максимальный по модулю и минимальный по модулю четные элементы

Program Mtrx01;
Uses CRT;
Const
  R = 4; {Строки}
  C = 6; {Столбцы}
Var
  matrix : Array[1..R, 1..C] of Integer;
  i, j, temp, max, min, imax, imin, jmax, jmin : Integer;
Begin
  ClrScr;
  {Заполняем, выводим матрицу и находим минимумы и максимумы четных элементов}
  Randomize;
  max := 0;
  min := 32768;
  For i := 1 To R Do
  Begin
    For j := 1 To C Do
    Begin
      matrix[i, j] := Random(1000) - 500;
      Write(matrix[i, j] : 5);
      If (matrix[i, j] mod 2 = 0) and (Abs(matrix[i, j]) > max) Then
      Begin
        max := Abs(matrix[i, j]);
        imax := i;
        jmax := j
      End;
      If (matrix[i, j] mod 2 = 0) and (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);
  Writeln('Минимальный по модулю четный элемент: matrix[', imin, ',', jmin, '] = ', min);
  {Обмен}
  temp := matrix[imax, jmax];
  matrix[imax, jmax] := matrix[imin, jmin];
  matrix[imin, jmin] := temp;
  {Вывод новой матрицы}
  For i := 1 To R Do
  Begin
    For j := 1 To C Do Write(matrix[i, j] : 5);
    WriteLn
  End;
  Repeat Until KeyPressed
End.

  max:=-MaxInt-1;
  min:=MaxInt;

  if ReadKey=#0 then ReadKey;

  Write('Нажмите Enter...'); ReadLn;

  if min=MaxInt then WriteLn('Четные элементы отсутствуют')
  else begin
    ...
  end;