Обработка последовательностей значений Опции

[status]

Задача : Дана последовательность чисел. Построить последовательность номеров позиций, откуда начинаются подряд идущие значения, расположенные в порядке убывания.

Помогите пожалуйста, я не совсем понимаю что и как надо сделать в этой задаче! Объясните пожалуйста как решить эту задачу.

[status]

procedure TForm1.Button2Click(Sender: TObject);
 var i:integer;
begin
 i:=0;
 Listbox2.Items.Clear;
 Repeat
  if StrToInt(Listbox1.Items[i])>StrToInt(Listbox1.Items[i+1]) then
   begin
    Listbox2.Items.Add(IntToStr(i));
    While StrToInt(Listbox1.Items[i])>StrToInt(Listbox1.Items[i+1]) do inc(i)
   end;
  inc(i);
 Until i=Listbox1.Items.Count-1;

end;

end.

Вот написал , ответ выдает но при этом и выдает какуюто ошибку! Проверте пожалуйста в чем могут быть проблемы!