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

//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