Перестановка последнего элемента массива с наименьшим элементом - Pascal ABC

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

Смогла переставить лишь максимальный с минимальным, но нужно с последним элементом, никак не выходит.....

program z3;{В данном одномерном массиве переставить последний элемент с наименьшим элементом массива}
const n=20;
var a: array [1..20] of integer;
    i,imax,imin: byte;
   
    buf: integer;
begin
 
imax:=1; imin:=1;
writeln('Дан массив');
for i:=1 to 20 do
    begin
    a[i]:=-50+random(100);
    write(a[i],' ');
    if a[i]>a[] then imax:=i;
    if a[i]<a[imin] then imin:=i;
    end;
writeln;
writeln('Мин.  элемент ',a[imin],' под индексом ',imin);
writeln('Макс. элемент ',a[imax],' под индексом ',imax);
buf:=a[imax];
a[imax]:=a[imin];
a[imin]:=buf;
 
writeln('Новый массив занесен в файл');
for i:=1 to 20 do
    begin
    write(a[i],' ');
    
    end;
 
end.

Решение задачи: «Перестановка последнего элемента массива с наименьшим элементом»

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

program z3;{В данном одномерном массиве переставить последний элемент с наименьшим элементом массива}
 
const
  n = 20;
 
var
  i, imin: byte;
  buf: integer;
  a: array [1..20] of integer;
 
 
begin
  
  imin := 1;
  writeln('Дан массив');
  for i := 1 to 20 do
  begin
    a[i] := -50 + random(100);
    write(a[i], ' ');
    
    if a[i] < a[imin] then imin := i;
  end;
  writeln;
  writeln('Мин. элемент ', a[imin], ' под индексом ', imin);
  buf := a[20];
  a[20] := a[imin];
  a[imin] := buf;
  writeln;
  writeln('Новый массив после обмена минимального с последним элементов ');
  for i := 1 to 20 do
  begin
    write(a[i], ' ');
  end;
end.

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

В данном коде объявлены следующие переменные:

n - количество элементов в массиве (равное 20 в данном случае);
i - переменная для итерации по массиву;
imin - переменная для хранения индекса наименьшего элемента массива;
buf - временная переменная для хранения значения наименьшего элемента массива;
a - массив для хранения чисел. Код начинается с объявления этих переменных. Затем происходит итерация по всем элементам массива с помощью цикла for. Внутри цикла каждый элемент массива присваивается значение -50 + random(100), затем выводится на экран. Если текущий элемент меньше значения наименьшего элемента массива, то наименьшее значение присваивается переменной imin и обновляется значение buf. После завершения итерации выводится на экран значение buf (которое теперь содержит наименьший элемент массива), затем происходит обмен значения buf с последним элементом массива. Наконец, также выводится на экран новый массив после обмена. Таким образом, данный код меняет последний элемент массива на наименьший элемент массива, сохраняя при этом все остальные элементы без изменений.