В матрице A порядка N x M поменять местами наибольшее и наименьшее значение решение

Если что не так пиши!

Const N = 10;Const M = 10;Var  A:Array [1..N, 1..M] Of Integer;  i, j, imax, jmax, imin, jmin, temp:Integer; Begin  randomize;  For i := 1 to N do  Begin    For j := 1 to M do    Begin      A[i, j] := random(1000);    End;  End;  imin := 1;  imax := 1;  jmin := 1;  jmax := 1;  For i := 1 to N do  Begin    For j := 1 to M do    Begin      If A[i, j] > A[imax, jmax] then      Begin        imax := i;        jmax := j;      End;      If A[i, j] < A[imin, jmin] then      Begin        imin := i;        jmin := j;      End;    End;  End;  writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]);  temp := A[imin, jmin];  A[imin, jmin] := A[imax, jmax];  A[imax, jmax] := temp;  writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]);End.