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

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