Вводится последовательность из 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.