В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы - Pascal

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

В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы. Выведите исходный и изменённый массив, а также индексы элементов, которые менялись местами (исходный массив должен формироваться с помощью ввода их с клавиатуры).

Решение задачи: «В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы»

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

program prog;
var a:array of integer;
    i,n:integer;
    mini,maxi,temp:integer;
begin
  write('введите размерность массива:');readln(n);
  SetLength(a, n);
  for i:=0 to n-1 do begin write ('введите a[',i,'] ');readln(a[i]);end;  
  writeln;
  writeln('Исходный массив');
  for i:=0 to n-1 do write (a[i],' ');  
  mini:=0;maxi:=0;
  for i:=1 to n-1 do begin
    if a[mini]>=a[i] then mini:=i;
    if a[maxi]<a[i] then maxi:=i;
  end; 
  temp:=a[mini]; a[mini]:=a[maxi]; a[maxi]:=temp;    
  writeln;
  writeln('Измененный массив');
  for i:=0 to n-1 do write (a[i],' ');
  writeln; 
  writeln ('индекс min=',mini,' индекс max=',maxi); 
end.

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

Вот что делает этот код:

Запрашивает у пользователя размерность массива и сохраняет ее в переменной n.
Создает массив a заданного размера и инициализирует его первыми n-1 элементами, которые пользователь вводит по одному в каждой итерации цикла.
Выводит исходный массив на экран.
Затем код находит наименьший и наибольший элементы массива, используя два вложенных цикла. Переменная mini инициализируется значением 0, а переменная maxi инициализируется значением 0. В первой итерации внешнего цикла, если текущий элемент массива a[mini] больше или равен текущему элементу массива a[i], то значение переменной mini обновляется значением i. Аналогично, если текущий элемент массива a[maxi] меньше текущего элемента массива a[i], то значение переменной maxi обновляется значением i.
Затем код меняет местами последний наименьший и первый наибольший элементы массива, используя временную переменную temp.
Код выводит измененный массив на экран.
Наконец, код выводит индексы min и max на экран.