Массивы паскаль

[Ann2807]

Здравствуйте, помогите дописать, пожалуйста(с подпрограммами и функциями)

Одномерный массив А длиной N<=20 заполнить случайными числами из диапазона [–15..80]. Составить программу определения:
• количества и суммы минимальных элементов;
• есть ли в данном массиве два соседних отрицательных элемента? Найти номера последней пары.



Program number;
const n=20;
type temp= array[1..n] of integer;
var tp:temp;
x, y, min:integer;
ind:byte;
procedure vvod(var a:temp);
var i:byte;
begin
randomize;
for i:=1 to n do
a[i]:=random(96)-15;
end;