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

Program m;

Var old, new: real;

k, n, i: integer;

Begin

repeat

write ('vvod posl n = ') ;

readln (n)

until n>0;

Write ('vvod x = ') ;

Readln (old) ;

k:=0;

for i:=2 to n do

begin

Write ('vvod x = ') ;

Readln (new) ;

If new*old<0 then k:=k+1;

Old:=new;

end;

If k>0 then

Writeln ('posledovatelnost menyaet znak ', k, ' raz')

Else Writeln ('posledovatelnost ne menyaet znak') ;

End.