Подсчитать количество столбцов матрицы, элементы которых расположены в порядке возрастания

const N=5; M=6;
var Matrica: array[1..N,1..M] of integer;
    i,j: integer;
    flag:boolean;
    count:integer;
begin
   for i:=1 to N do
    for j:=1 to M do
     begin
        write('Введите элемент [',i,j,']:');
        readln(Matrica[i,j]);
     end;
 
     count:=0;
      for i:= 1 to M do
       begin
           flag:=true;
         for j:=1 to N-1 do
          if Matrica[i,j]>Matrica[i,j+1] then
           flag:=false;
         if flag then
          count:=count+1;
       end;
    writeln('Число столбцов:', count);
    readln;
end.

program matrica;
uses crt;
var
mat:array[1..20,1..20] of integer;
i,j,n,m:integer;
k:boolean;
count:integer;
begin
clrscr;
writeln('ukazhite kol-vo strok matrici');
readln(m);
writeln('ukazhite kol-vo stolbcov matrici');
readln(n);
for i:=1 to n do
for j:=1 to m do
begin
writeln('vvedite element,stoyashii na ',i,'-oi stroke i ',j,'-m stolbce matrici');
readln(mat[i,j]);
end;
count:=0;
for i:=1 to m do
begin
k:=true;
for j:=1 to n-1 do
if mat[i,j]>mat[i,j+1] then
k:=false;
if k then
count:=count+1;
end;
writeln('chislo stolbcov:',count);
for i:=1 to m do
begin
for i:=1 to n do
write(mat[i,j]:8,' ');
end;
repeat until keypressed;
end.

for i:=1 to n do
begin
k:=true;
for j:=1 to m-1 do
if mat[j,i]>mat[j+1,i] then
k:=false;
if k then
count:=count+1;
end;

writeln('chislo stolbcov:',count);//посчитал столбцы, вывел
for i:=1 to m do//остальное-то зачем???
begin
for i:=1 to n do
write(mat[i,j]:8,' ');
end;