Доброго времени суток. Пожалуйста, помогите составить программы в Паскале.
1. Массив целых чисел, состоящий из 15 элементов, задан случайным образом числами из промежутка [0,100]. Отсортировать в порядке убывания только чётные элементы массива методом выбора.
2.Дана последовательность вещественных чисел, содержащих n=15 элементов. Построить из неё новую последовательность, так чтобы в её начале располагались все отрицательные, а затем все положительные числа  и нули. Относительный порядок расположения как отрицательных, так и не отрицательных должен быть сохранён

Ответ на первуюvari,m,b:integer;a:array[1..15] of integer;beginfor i:=1 to 15 doa[i]:=random(100)+1;repeatfor i:=1 to 14 doif a[i]<a[i+1] then beginb:=a[i];a[i]:=a[i+1];a[i+1]:=b;end;inc(m);until m=14;for i:=1 to 15 doif a[i] mod 2 = 0 thenwrite(a[i],' ');end.