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

Program Matrix;
Uses crt;
const MaxN = 20;
Type Mas = array[1..MaxN,1..MaxN] of integer;
//Функция возвращает индекс столбца максимального элеменда
Function GetMaxIndex(X:Mas; NStr,N:byte):integer;  //матрица,номер строки,размерность матрицы
Var i,Max,MaxI:integer;
begin
  Max:=X[NStr,1];
  MaxI:=1;
  for i:=1 to N do
  if X[Nstr,i] > Max then
  begin
    Max:=X[Nstr,i];
    Maxi:=i;
  end;
  Result:=Maxi;
end;
//Функция возвращает индекс столбца минимального элеменда
Function GetMinIndex(X:Mas; NStr,N:byte):integer;  //матрица,номер строки,размерность матрицы
Var i,Min,MinI:integer;
begin
  Min:=X[NStr,1];
  MinI:=1;
  for i:=1 to N do
  if X[Nstr,i] < Min then
    begin
      Min:=X[Nstr,i];
      MinI:=I;
    end;
  Result:=MinI;
end;
//меняю местами или max-last иди min с first,если F=false
Procedure ReplaceMin_Max(Var X:Mas; N,M:byte; F:boolean);
Var tmp,min,max:integer;
    i:byte;
begin
  for i:=1 to N do
  begin
    Min:=GetMinIndex(X,I,M); //получаб номер столбца с макс.элементом
    Max:=GetMaxIndex(X,I,M);
    if F then
    begin
      tmp:=X[i,N];       //последний запоминаю
      X[i,N]:=X[i,Max];  //последний стал max
      X[i,Max]:=tmp;     //максимальный теперь последний
    end  else
    begin
      tmp:=X[i,1];       //первый запоминаю
      X[i,1]:=X[i,Min];  //первый стал min
      X[i,min]:=tmp;     //меняю местами...
    end;
  end;
end;
 
Procedure PrintMatrix(X:Mas; N,M:byte);
Var i,j:integer;
begin
  for i:=1 to N do
  begin
    WriteLn;
    for j:=1 to M do
      Write(X[i,j]:3,' ');
  end;
end;
 
Var i,j,N,M:byte;
    Mtr:Mas;
Begin
  Write('Введите число строк: ');             ReadLn(N);
  Write('Введите число столюцов: ');          ReadLn(M);
  Randomize;
  for i:=1 to N do
  for j:=1 to M do
    Mtr[i,j]:= random(50);
  WriteLn('Исходная матрица: ');
  PrintMatrix(Mtr,N,M);
  //Преобразование///
  ReplaceMin_Max(Mtr,N,M,True);
  WriteLn;
  Writeln('Максимальный поменялся с последним: ');
  PrintMatrix(Mtr,N,M);
  ReplaceMin_Max(Mtr,N,M,False);
  WriteLn;
  Writeln('Минимальный поменялся с первым: ');
  PrintMatrix(Mtr,N,M);
  ReadLn;
end.