Помогите по информатике! Дана последовательность целых чисел, 0 - конец последовательности. Определите, сколько раз в последовательности меняется знак.

Var n, i, n1: integer;
begin
     read(n);
     i := 0;
     n1 := 0;
     while n 0 do
     begin
          if n1 * n              i := i + 1;
          n1 := n;
          read(n);
     end;
     writeln(i);
end.