Определить количество перемен знака в массиве — Pascal(Паскаль)

program mass1;

uses crt;

var
  n, i, k: integer;
  a: array [1 .. 100] of integer;

function SmZn(n: integer): integer;
var
  k: integer;
begin
  k := 0;
  for i := 1 to n do
  begin
    if a[i] * a[i + 1] < 0 then
      k := k + 1;
  end;
  SmZn := k;
end;

begin
  clrscr;
  write('n=');
  readln(n);
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(15) - 10;
    write(a[i], ' ');
  end;
  readln;
  write('k=', SmZn(n));
  readln;

end.