Сгенератора целых случайных чисел заполнить массив на 30 элементов величины из диапазона -25..36. полученный массив отсортировать по убыванию и вывести на экран. нужно !

Program z;
var   a: array [1..30] of integer;
  N: integer;
  i: integer;
begin  N := 30; 
 for i:=1 to N do   
 a[i] := Random(-25, 36); 
 writeln('Элементы массива: '); 
for i:=1 to N do   
 write(a[i],' ');
end.