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

Program m;   Var old, new: real;   k: integer;   Begin   Write('vvod x');   Readln(old);   Write('vvod x');   Readln(new);   X:=0;   Repeat   If new*old<0 then k:=k+1;   Old:=new;   Write('vvod x');   Readln(new)   Until new=0;   If k>0 then   Writeln('posledovatelnost menyaet znak', k, 'raz')   Else Writeln('posledovatelnost ne menyaet znak');   End.