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

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.