{Задаём исходные значения:}
i:=2;
mx:=0;
imx:=0;
{Организуем цикл по всему исходному массиву:}
while i<=n do
 {Проверяем условие "если последующий элемент больше предыдущего":}
 if a[i]>a[i-1] then
 {Если указанное условие выполнено, то:}
  begin
  {Задаем исходные значения k и j. Далее "движемся" по массиву, используя счетчик j. Значение i остаётся соответствующим второму элементу упорядоченного фрагмента:}
   j:=i;
   k:=1;
   {Наращивая j, движемся по массиву до тех пор, пока или массив не кончится, или условие упорядоченности (текущий элемент больше предыдущего) не нарушится. В результате определяем длину (k) упорядоченного фрагмента:}
   while (j<=n) and (a[j]>a[j-1]) do
    begin
     j:=j+1;
     k:=k+1;
    end;
    {Проверяем, не превышает ли полученная длина k значение максимальной протяженности упорядоченного фрагмента, полученное после обработки предыдущей части исходного массива, и если превышает, то переопределяем как саму длину (mx), так и номер первого элемента упорядоченного фрагмента (imx):}
    if k>mx then
     begin
      mx:=k;
      imx:=i-1;
     end;
    {Смещаем глобальную нумерацию (i) на длину найденного упорядоченного фрагмента с тем, чтобы продолжить глобальный цикл:}
    i:=i+k;
  end
  {Если указанное в начале условие соотношения пары соседних элементов не выполнено (последующий меньше или равен предыдущему), то продолжаем движение вдоль исходного массива:}
  else i:=i+1;
{Выводим полученный результат (длину наибольшего упорядоченного фрагмента и сам фрагмент):}
writeln('Максимальная последовательность возрастания=',mx);
for i:=imx to imx+mx-1 do
  write(a[i],' ');
{Останавливаем, а потом завершаем программу:}
readln
end.