Вводится последовательность не нулевых чисел . Ноль конец последовательности . Определить сколько раз последовательность меняет знак

var    i, n, prev_n: integer;begin    i := 0;    writeln('Введите последовательность чисел,оканчивающихся 0');        repeat        readln(n);        if prev_n * n < 0 then            i := i + 1;        prev_n := n;    until n = 0;        writeln(i);end.