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

спасибо огромное!

Пожалуйста, успехов!

//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  32min = -46  max = 32 -19 -14 -44  -3  -4  32  -1 -39  13 -46