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

[status]

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

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

[volvo]

Можно... У меня в каждый момент времени сравниваются только 2 жлемента: текущий и предыдущий, поэтому:

const
 n = 15;

function find_ascend(var max: integer): integer;

 var curr, start: integer;
     prevArr, nextArr: integer;

 function check_max(i: integer): integer;
   begin
     if max < curr then
       begin
         max := curr;
         check_max := i - curr + byte(i = pred(n))
       end
     else check_max := start
   end;

 var
   i: integer;

 begin
   write('--> '); readln(prevArr);

   max := 0; curr := 1;
   start := 1;

   for i := 1 to pred(n) do
     begin
       write('--> '); readln(nextArr);
       if prevArr < nextArr then
         inc(curr)
       else
         begin
           start := check_max(i);
           curr := 1
         end;

       prevArr := nextArr;
     end;
   start := check_max(i);
   find_ascend := start
end;

var _start, _max: integer;
begin
 _start := find_ascend(_max);
 writeln('start = ', _start, ' len = ', _max)
end.

(от N лень было избавляться, просто организуй ввод так, чтобы при вводе определенного значения он прекращался)

Как видишь, массивы не используются.