Найти максимальный и минимальный элементы массива D и поменять их местами - PascalABC.NET

Формулировка задачи:

Найти максимальный и минимальный элементы массива D и поменять их местами. Имя массива и его размер D(80). d_i=(L+i)/ln(L+i). Подскажите пожалуйста.

Решение задачи: «Найти максимальный и минимальный элементы массива D и поменять их местами»

Листинг программы

min:=a[1]; mn:=1;
   max:=a[1]; mx:=1;
   for i:=2 to n do
      begin
         a[i]:=random(100);
         write(a[i]:4);
         if a[i]<min then begin min:=a[i]; mn:=i; end;
         if a[i]>max then begin max:=a[i]; mx:=i; end;
      end;
   a[mn]:=a[1];
   a[1]:=min;
   a[mx]:=a[n];
   a[n]:=max;

Объяснение кода листинга программы

В данном коде выполняются следующие действия:

Инициализируются переменные min и mn значением первого элемента массива a и его индексом соответственно.
Инициализируются переменные max и mx значением первого элемента массива a и его индексом соответственно.
В цикле выполняется заполнение массива a случайными значениями от 1 до 100.
В каждой итерации цикла проверяется, является ли текущий элемент меньше min, и если да, то обновляются значения min и mn.
В каждой итерации цикла проверяется, является ли текущий элемент больше max, и если да, то обновляются значения max и mx.
После завершения цикла выполняется обмен первого элемента массива a и элемента с минимальным индексом, а также последнего элемента массива a и элемента с максимальным индексом.