Нужно составить полностью программу паскаль

1)

begin

var mas:=ArrRandom(10,-50,50).println;

println;

var b:=mas.Reverse.println;

end.

2)

begin

var a := ArrRandom(10, -50, 50);

a.Println;

println;

swap(a[a.indexmax], a[a.indexmin]);

$'Максимальный элемент массива = {a.Max}'.Println;

$'Минимальный элемент массива = {a.Min}'.Println;

println;

a.Println;

end.

Подробнее - на -

Объяснение: