Заполнить массив из 10-ти элементов случайными числами из интервала от [-40;40], вывести на экран и расположить числа в порядке убывания значений элементов.

Var 
a:array[1..10] of integer; 
i,j,k:integer;
Begin 
for i:= 1 to 10 do  Begin   
 a[i]:=random(81)-40;   
write(a[i],' '); 
End; 
Writeln; 
for i:= 1 to 10 do   
for j:= 1 to 9 do     
if a[j]>a[j+1] then     
Begin       
k:=a[j];       
a[j]:=a[j+1];       
a[j+1]:=k;     
End; 
for i:= 10 downto 1 do 
write(a[i],' ');
End.  

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
  var a:=ArrRandom(10,-40,40); a.Println;
  a.SortedDescending.Println
end.

Тестовое решение:
20 -32 1 3 0 21 -14 21 32 -6
32 21 21 20 3 1 0 -6 -14 -32