Поменять местами минимальные элементы первой и последней строки матрицы

Uses Crt;
Const N = 4; M = 5;
Var A:array[1..N, 1..M] of Integer;
        i, j, jmin, X: Integer;
Begin
ClrScr;
Randomize;
Writeln(‘   Исходный массив:’);
    For i:= 1 to N do begib
    For j:= 1 to M do begin
       A[i,j]:= Random(80) – 20;
           Write(‘ ‘,A[i,j]:4);
       End;  WriteLn;  end;
{Блок опр-я min эл-ов каждого ряда}
     For i:= 1 to N do begin
         Jmin:= 1; {при наличии отр. Значений
                  Jmin можно принимать равным 1}
     GoToXY(22, 1);
Writeln(‘ Мин эл-ты рядов:’);
      For j:= 2 to M do
if A[i,jmin] > A[i,j] then jmin:= j;
     GoToXY(28, i * 1 + 1);
Writeln(A[i, jmin]:3);
   End;
{Перестановка min эл=в 1-го и послед. ряда}
     X:= A[1, jmin];
     A[1, jmin]:= A[N, jmin];
     A[N, jmin]:= X;
Writeln(‘   Изменённый массив:’);
    Fot i:= 1 to N do begin
    For j:= 1 to M do begin
       Write(‘   ‘,A[i, j]:3);
   End;  WriteLn;  end;
   ReadLn
End.

 Исходный массив:    Min  эл-ты рядов:
-20  -18   48   -4    1                   -20
 33     5    -8    9   14                    -8
-14   17   -15  47 -16                  -16
   3   53       9  41   6                      3
   Изменённый массив:
   3  -18   48   -4    1
 33     5    -8    9   14
-14   17   -15  47 -16
-20   53       9  41   6

   Исходный массив:    Мин эл-ты рядов:
 17   46  -17   50  -20                -20
-16   17   58  -11     3                -16
 14  -10     0   56     1                -10
 10   26   53   24    17                 10
  Изменённый массив:
10   46  -17   50  -20
-16   17   58  -11    3
 14  -10     0   56     1
 17   26   53   24    17

  j1:=1; for j:=2 to M do if a[1,j1]>a[1,j] then j1:=j; { min строки 1 }
  jn:=1; for j:=2 to M do if a[N,jn]>a[N,j] then jn:=j; { min строки N }
  x:=a[1,j1]; a[1,j1]:=a[N,jn]; a[N,jn]:=x;