Вмассиве найти минимальный и максимальный элемент и поменять их местами.распишите все действия(объясните)

// PascalABC.Net 3.2
begin
  var a:=ArrRandom(15,10,30).Select(x->x+0.1); Write('A='); a.Println;
  var b:=ArrRandom(12,10,30).Select(x->x+0.1); Write('B='); b.Println;
  var c:=a.Intersect(b).ToArray;
  Write('C='); c.Println;
  a:=a.Except(c).ToArray; Write('A новый='); a.Println;
  b:=b.Except(c).ToArray; Write('B новый='); b.Println
end.

Пример решения
A=15.1 25.1 29.1 24.1 16.1 29.1 18.1 13.1 10.1 12.1 10.1 13.1 14.1 18.1 24.1
B=24.1 10.1 23.1 15.1 13.1 16.1 22.1 21.1 21.1 28.1 26.1 29.1
C=15.1 29.1 24.1 16.1 13.1 10.1
A новый=25.1 18.1 12.1 14.1
B новый=23.1 22.1 21.1 28.1 26.1

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var n:=ReadInteger('Задайте число строк/столбцов массива:');
  var a:=MatrixRandom(n,n,-99,99);
  Writeln('Исходный массив');
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do Write(a[i,j]:4);
    Writeln
    end;
  Write('Кол-во нечетных элементов выше главной диагонали: ');
  var k:=0;
  for var i:=0 to n-2 do
    for var j:=i+1 to n-1 do
      if Odd(a[i,j]) then Inc(k);
  Writeln(k)
end.

Тестовое решение
Задайте число строк/столбцов массива: 6
Исходный массив
  31  27 -90 -64 -75  22
  12  11  79   6 -14  73
 -66 -52 -97 -82 -50  47
 -65  20  25  -7 -13  46
 -31  -9 -69  47  81   2
 -43 -68  95  -3 -36 -55
Кол-во нечетных элементов выше главной диагонали: 6