паскаль. массив

[анна1.]

всем, привет))) помогите пожалуйста написать программу.
условие: Описать функцию для определения количества пар соседних элементов одномерного массива, имеющих разные знаки. (A[n],N<=20.)

[ОДИНОЧЕСТВО В СЕТИ]

function count(var a:array[1..100];n:integer):integer;
var i,c:integer;
begin
c:=0;
for i:=1 to n -1 do
if a[i]*a[i+1]<0 then inc(c);
count:=c;
end;