Сгенерировать массив случайных чисел. Найти наибольшее и наименьшее число в массиве. Поменять местами эти числа и вывести массив заново

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var   a: array of integer;   i, n, min, max, imax, imin: integer; begin   write('Число элементов в массиве ');readln(n);   setlength(a, n);   min := maxint;max := -maxint;   for i := 0 to n - 1 do   begin     a[i] := random(101) - 50;     if a[i] > max then begin       max := a[i];imax := i;     end;     if a[i] < min then begin       min := a[i];imin := i;     end;     write(a[i]:4);   end;   writeln;   writeln('min = ',min,'  max = ',max);   //меняем местами max и min и выводим массив   swap(a[imax], a[imin]);   for i := 0 to n - 1 do write(a[i]:4); end. Тестовое решение: Число элементов в массиве 10  -19 -14 -44  -3  -4 -46  -1 -39  13  32 min = -46  max = 32  -19 -14 -44  -3  -4  32  -1 -39  13 -46