с ПОМОЩЬЮ ГЕНЕРАТОРА ЦЕЛЫХ СЛУЧАЙНЫХ ЧИСЕЛ ЗАПОЛНИТЬ МАССИВ НА 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.

Спасибо большое а не могли бы вы еще отсортировать массив по убыванию?

я выставил 10 баллов а дальше попросил чтоб помогли и я зачислил 70 я же не мог изменить вы не могли помочь потому что наверно ты полоумный. Я сам знаю что с помощью генератора целых чисел!

Ищвените не вам писал случайно еще раз спасибо!