Вывести количество строк матрицы, элементы которых монотонно возрастают

program var3_20;
 
const
   n = 5;
   m = 10;
 
type
   mas = array[1..n, 1..m] of integer;
 
var
   a: mas;
   i, j, key, k: integer;
 
begin
   writeln('1 - Вывести количество строк, элементы которых монотонно возрастают');
   writeln('2 - Вывести количество столбцов, элементы которых монотонно убывают');
   readln(key);
   writeln('Исходная матрица:');
   for i := 1 to n do
      for j := 1 to m do
         a[i, j] := random(100);
   for i := 1 to n do
   begin
      for j := 1 to m do
         write(a[i, j]:5);
      writeln;
   end;
   case key of
      1:     
         begin
            writeln('Результат программы:');
            for i := 1 to n do
            begin
               k := 1;
               for j := 2 to m do
                  if(a [i, j] > a[i, j - 1]) then
                     inc(k);
               if(k = m) then
                  write(a[i]:4);
            end;
            for i := 1 to n do
            begin
               for j := 1 to m do
                  write(a[ j]:5);
               writeln;
            end;
         end;
      2:         
         begin
            writeln('Результат программы:');
            k := 1;
            for j := 1 to m do
               for i := 2 to n do
               begin
                  if(a [i, j] < a[i - 1, j]) then
                     inc(k);
               end;
            if(k = n) then 
            begin
               for i := 1 to n do
               begin
                  for j := 1 to n do
                     writeln(a[i, j]:4);
               end;
               
            end;
         end;
   end;
end.