Матрица. Поиск последовательностей.

[Пафка]

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

[Хыиуду]

Код: Выделить всё

function is_sequence(j: byte): byte;
for i:=2 to N do 
  if (a[j,i-1]<a[i,j])<>(a[j,1]<a[j,2]) then begin result:=0; exit; end;
if a[j,1]=a[j,2] then result:=0 else
if a[j,1]<a[j,2] then result:=1 else
result:=2;
end;

Передается номер строки, возвращается 0, если последовательность немонотонная, 1, если монотонно возрастает, 2, если монотонно убывает