Неправильный цикл - Pascal

Формулировка задачи:

Объясните, пожалуйста, почему в цикле

 While v < v1 do
      begin
      New(i3);
      i3^.v := FloatToStr(v);
      i3^.hmm := IntToStr(hmm);
      GCalList.Add( i3 );
      v := v + hv;
      hmm := hmm + hhmm;
end;

Первый раз от v до v1 оно пробегает правильно, а когда снова возвращается к этому циклу, то уже бежит не до <v1, а до =v1?

Решение задачи: «Неправильный цикл»

Листинг программы

While v < v1 do
      begin
      New(i3);
      i3^.v := FloatToStr(v);
      i3^.hmm := IntToStr(hmm);
      GCalList.Add( i3 );
      v := v + hv;
      hmm := hmm + hhmm;
end;

Объяснение кода листинга программы

Создается новый элемент списка i3.
Значение переменной v преобразуется в строку и присваивается полю v нового элемента списка i3.
Значение переменной hmm преобразуется в строку и присваивается полю hmm нового элемента списка i3.
Новый элемент списка i3 добавляется в список GCalList.
Значение переменной v увеличивается на значение переменной hv.
Значение переменной hmm увеличивается на значение переменной hhmm.