проблем с написанием

[RaMZeS>>>]

1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-40,40]. Найти сумму элементов, значения которых по модулю меньше 10.
2. Вывести индексы тех элементов, значения которых больше последующего элемента.
3. Определить, есть ли две пары соседних элементов с разными знаками.

привел 1 часть к такому коду:

Var
Mass:array of word;
N,i:word; //от 0 до 65535
S:real48;
begin
if Mass<>Nil then Mass:=Nil;
SetLength(Mass,N);
S:=0;
for i:=0 to N-1 do
begin
Mass:=random(81)-40;
if Abs(Mass)<10 then S:=S+Mass
end
end

на остальное сообразить не могу(((....Нужна в общем помощь! Плиз!!!!