Используйте процедуры ввода и вывода элементов матрицы

const nmax=20;//макс. размер
type  mas= array[1..nmax] of integer;//массив-строка матрицы
      matr=array[1..nmax] of mas;//матрица-массив строк
procedure Vvod(var mt:matr;var x:byte);//ввод матрицы
var i,j:byte;
begin
repeat
write('Размер матрицы=');readln(x);
until x in [1..nmax];
for i:=1 to x do
for j:=1 to x do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
end;
procedure Vyvod(var mt:matr;x:byte);//вывод
var i,j:byte;
begin
writeln('Матрица:');
for i:=1 to x do
 begin
  for j:=1 to x do
  write(mt[i,j]:4);
  writeln;
 end;
end;
function Posl(ms:mas;x:byte):boolean;//определение упорядоченности
var i:byte;
begin
Posl:=true;
for i:=2 to x-1 do
if ((ms[i]<=ms[i-1])and(ms[i]>ms[i+1]))
or ((ms[i]>=ms[i-1])and(ms[i]>ms[i+1])) then
  begin
   Posl:=false;
   break;
  end;
end;
 
 
var a:matr;
    n,i,k:byte;
begin
clrscr;
Vvod(a,n);
Vyvod(a,n);
k:=0;
for i:=1 to n do//идем по строкам
if Posl(a[i],n)then k:=k+1;//считаем
Writeln('Образуют последовательность ',k,' стр.');
readln
end.