Задачи по Pascal помогите 
1)Дан массив из конечного числа элементов вывести все отрицательные
элементы.
2)Дан одномерный массив найти все четные элементы массива.
3)Дано n целых чисел найти произведение элементов одномерного массива.
4)Упорядочить данную последовательность по убыванию элементы вводятся с клавиатуры
5)Массив задан датчиком случайных чисел на интервале от -31 до 45 сформировать новый массив b состоящий из нечетных элементов массива a.

Спасибо

 var mas:array of integer;    sum ,j, i,n:integer;begin////////////////////////////////////////ввод числа///////////////////////////////////////////while n<>0 dobeginwrite('x:  ' );readln(n);if n=0 thenbreakеlsebeginsetlength(mas,length(mas)+1);mas[high(mas)]:=n;end;end;//////////////////////////////////////////////////////////////////////////////////////////////////////////   writeln('Otrisatelni');/////////////////////////////////////////////////1)///////////////////////////////   For i:= 0 to high(mas) do   if mas[i]<0 then   write(mas[i]);    writeln('Chetni');////////////////////////////////////////////////////////////2)/////////////////////////    For j:= 0 to high(mas) do   if mas[j]mod 2=0 then   write(mas[j]);   writeln('Proizvedenie');//////////////////////////////////3///////////////////////////////////////   sum:=1;    For i:= 0 to high(mas) do    sum:=sum*mas[i];    write(sum);   readln;end.