Решите плиз двумерный массив

[Knot{]

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

Плиз полное решение проги
за раннее спс)

[alex_fcsm]

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j:integer;
    
procedure Up(x:integer);
var k:integer;
    f:boolean;
begin
 f:=true;
 for k:=1 to n-1 do
   if  a[x,k]>a[x,k+1] then f:=false;
 if f then Writeln('Возрастающая ',x,' строка');
end;

procedure Down(x:integer);
var k:integer;
    f:boolean;
begin
 f:=true;
 for k:=1 to n-1 do
   if a[x,k]<a[x,k+1] then f:=false;
 if f then Writeln('Убывающая ',x,' строка');
end;
    
begin
 for i:=1 to n do
  begin
    for j:=1 to n do
     begin
      a[i,j]:=random(5)+i;
      write(a[i,j]:5);
     end;
    writeln;
  end;
for i:=1 to n do
 if a[i,1]>a[i,n] then Down(i)
    else Up(i);
end.