2умерный массив

[J_o_h_n_]

2мерный массив! Дана матрица n. Найти номер строк, элементы которых образуют монотонную(возраст или убыва) последовательность! Тока через 2мерный массив)


заранее спасибо

[capta1n]

program pr;
const
 n = 3;
var
 a : array [1..n,1..n] of integer;
 fl : boolean;
 i,k,j : byte;
begin
  for i:=1 to n do
  begin
    for k:=1 to n do read(a[i,k]);
    readln
  end;
  for i:=1 to n do
  begin
    if a[i,1]<a[i,2] then fl:=true
                     else fl:=false;
    j:=i;
    if fl then
     for k:=1 to n-1 do
      if a[i,k+1]<=a[i,k] then
      begin
        j:=0;
        break
      end
      else
    else
     for k:=1 to n-1 do
      if a[i,k+1]>=a[i,k] then
      begin
        j:=0;
        break
      end;
    if j<>0 then writeln (j)
  end;
  readln
end.