Определить в массиве число соседств двух чисел разного знака

program PlasMinusArr;
const
  n = 20;
type
  mass = array[1..n] of integer;
var
  i: integer;
  a: mass;
  reg: integer;
begin
  randomize;
  for i:=1 to n do //Заполняем массив числами с разными знаками и
     begin          //сразу выводим его в консоль.
     a[i]:= random(3)-1;
     write(a[i],' ');
     end;
 
  reg:=0;
  for i:=1 to n do
     if ((a[i]<0) and (a[i+1]>0)) or ((a[i]>0) and (a[i+1]<0)) then
     reg:=reg+1;
  writeln();
  writeln ('Number of neighborhoods: ', reg);
 
  readln();
end.

program PlusMinusArr;
const
  n = 20;
type
  mass = array[1..n] of integer;
var
  i: integer;
  a: mass;
  reg: integer;
begin
  randomize;
  for i:=1 to n do //Заполняем массив числами с разными знаками и
     begin          //сразу выводим его в консоль.
     a[i]:= random(3)-1;
     write(a[i],' ');
     end;
 
  reg:=0;
  for i:=1 to n-1 do  //Сравниваем значение элемента со значением последующего элемента
                       // если знаки разные,  то счетчику reg добавляем единичку.
     if ((a[i]<0) and (a[i+1]>0)) or ((a[i]>0) and (a[i+1]<0)) then
     reg:=reg+1;
  writeln();
  writeln ('Number of neighborhoods: ', reg);
 
 
  readln();
end.