Даны натуральные n действительные числа a1 … an. В последовательности a1…an определить число соседств двух чисел разного цвета — Pascal(Паскаль)

uses crt;
const n=10;
var mas: array [1..n] of integer;
      i, k: byte;
begin
 randomize;
 clrscr; 
 writeln ('исходный массив: ');
 for i:=1 to n do
  begin
   mas [i]:=random(41)-20;
   write (mas [i]:3);
  end;
 writeln;
 for i:=1 to n-1 do
  if mas [i] * mas [i+1]<0 then inc (k);
 write ('кол-во близ лежащих и разных по знаку элементов = ',k);
end.