Дан целочисленный массив размера 10. Поменять местами минимальный и максимальный элементы массива

const N = 10; // размер массива
type tArray = array[1..N] of integer;
 
var nArr: tArray;
 
 // процедура заполняет массив типа tArray размера size
 procedure FillArray(size:integer;var arr:tArray);
 var i:integer;
 begin
  writeln('Введите одномерный массив размера ', size);
  for i:=1 to size do
   read(arr[i]);
 end;
 
 // процедура меняет местами элементы массива
 procedure Swap(from_,to_:integer; var arr:tArray);
  var temp:integer;
  begin
  temp:=arr[from_];
  arr[from_]:=arr[to_];
  arr[to_]:=temp;
  end;
 
   // процедура для заполнения массива типа tArr[n] random
  // @param a,b - диапазон рандома
 procedure RandomFillArray1(n,a,b:integer;var arr:tArray);
 var i:integer;
 begin
 randomize;
  for i:=1 to n do
    arr[i]:=random(b-a+1)+a;
 end;
 
 
 
 // процедура печатает массив tArray размера size
 procedure PrintArr(size:integer;arr:tArray);
 var i:integer;
 begin
    for i:=1 to size do
     write(arr[i],' ');
     writeln;
 end;
 
   // Возвращает индекс максимального или минимального  элемента массива
  // @param maxmin  Принимает значения 'max' и 'min'. В первом случае возвращает индекс максимального элемент,
  // во втором случае минимального
  // @param arr Вычисляемый массив
  // return индекс элемента массива (integer)
  function GetMaxMinElemIndex(maxmin:string;arr:TArray):integer;
  var m,i,index:integer;
  begin
  m:=arr[1];
  index:=1;
  if maxmin = 'max' then
  begin
    for i:=2 to n do
      if m<arr[i] then begin m:=arr[i]; index:=i; end;
  end;
  if maxmin = 'min' then
  begin
    for i:=2 to n do
      if m>arr[i] then begin m:=arr[i]; index:=i; end;
  end;
    GetMaxMinElemIndex:=index;
  end;
 
 begin
       RandomFillArray1(n,0,100,nArr);
       PrintArr(n,nArr);
       Swap(GetMaxMinElemIndex('min',nArr),GetMaxMinElemIndex('max',nArr),nArr);
       PrintArr(n,nArr);
end.