Нужно заполнить массив случайными числами паскаль от 0 до 1000. В массиве 30 элементов. Отсотрировать по убыванию, вывести на экран отсортированное. Написать на pascal (abc). Сортировка методом пузырька.

1)  setpencolor(color) -   устанавливает цвет пера, задаваемый параметром color2)    loadpicture(fname) n: =loadpicture(fname) – загружает рисунок из файла с именем fname в оперативную память и возвращает описатель рисунка в целую переменную n; если файл не найден, то возникает ошибка времени выполнения. загружать можно рисунки в формате .bmp, .jpg или .gif. загрузка готового рисунка 3)  вывод текста в графическое окно textout(x,y,’строка’); - выводит строку текста в позицию (x,y) (точка (x,y) задает верхний левый угол прямоугольника, который будет содержать текст) 4)  drawpicture(n,x,y); выводит рисунок с описателем n в позицию (x,y) графического окна. вывод рисунка в графическое окно uses graphabc 5)  заливка кистью setbrushpicture(‘fname’) - устанавливает в качестве образца для закраски кистью образец, хранящийся в файле fname, при этом текущий цвет кисти при закраске игнорируется