Осуществите перестановку минимального элемента и элемента, стоящего на последнем месте

const
  n = 15;
 
var
  mass : array[0..n-1] of ShortInt;
  mass2 : array of ShortInt;
  i, minID : Byte;
  min, temp : ShortInt;
  
begin
  {заполнение массива}
  min := 255;
  Randomize;
  for i := 0 to n-1 do
  begin
    mass[i] := Random(34)-18;
    if (min > mass[i]) then
    begin
      min := mass[i];
      minID := i;
    end;
  end;
  {вывод в столбик}
  WriteLn('Вывод сгенерированного массива в столбик:');
  for i := 0 to n-1 do
    WriteLn('A[', i+1, ']=', mass[i]:4);
  WriteLn;
  {вывод в стороку}
  WriteLn('Вывод сгенерированного массива в строку:');
  for i := 0 to n-1 do
    Write('A[', i+1, ']=', mass[i]:4, #9);
  WriteLn; WriteLn;
  {перестановка минимального элемента с последним}
  temp := mass[minID];
  mass[minID] := mass[n-1];
  mass[n-1] := temp;
  WriteLn('Массив А после перестановки:');
  for i := 0 to n-1 do
    Write('A[', i+1, ']=', mass[i]:4, #9);
  WriteLn; WriteLn;
  {отрицательные числа в обратном порядке}
  WriteLn('Массив отрицательных чисел массива А в обратном порядке:');
  for i := n-1 downto 0 do
    if (mass[i] < 0) then
    begin
      SetLength(mass2, Length(mass2)+1);
      mass2[Length(mass2)-1] := mass[i];
      Write('B[', Length(mass2), ']=', mass2[Length(mass2)-1]:4, #9);
    end;
end.