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

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.