ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Задача на Паскале: ........, Если масисив не упорядочен, то определить длину упорядоченной часта массива.
я делаю так

Код:

t:=0;
        for i:=0 to n do
            begin
                 if m[i]<m[i+1] then k:=k+1
                 else
                     begin
                          if t<k then
                             begin
                                  t:=k;
                                  k:=1;
                             end

И если масив состоит из 12123123451
Выведет 5, т.к. это самая длинная упорядочена часть масива.
Но если 12123123456
То выведет 3, т.е. оно у меня не правильно считает, потому что не выполняется условие f m[i]<m[i+1]
Как сделать что бы нормально считало?