Задача на определение упорядоченных строк

[sanchoflat]

Есть задача: подсчитать число строк, в пределах каждой из которых элементы упорядочены по возрастанию.
сказали сделать с флагами - честно не понял даже как.
помогите решить

[Juffin]

Делаешь флаг, обозначающий, упорядочена ли строка, изначально он false. Потом проходишь по строке циклом, если обнаруживаешь, что два соседних элемента не упорядочены, поднимаешь флаг (присваиваешь ему true). После этого если флаг опущен, прибавляешь единицу к счетчику упорядоченных строк.

[sanchoflat]

Сообщение от Juffin

Делаешь флаг, обозначающий, упорядочена ли строка, изначально он false. Потом проходишь по строке циклом, если обнаруживаешь, что два соседних элемента не упорядочены, поднимаешь флаг (присваиваешь ему true). После этого если флаг опущен, прибавляешь единицу к счетчику упорядоченных строк.

ну как понял - пишем

k:=0 {счетчик}
for i:=1 to n do
begin
for j:=1 to n do
if a[i]<a[i+1] then flag:=1;
if flag:=1 then writeln ...

дальше немного не понимаю, что нужно вывести, чтоб вывелась данная строка и чтоб счетчик посчитал её.