Задана матрица В(n,m). Определить количество столбцов, упорядоченных по возрастанию. Каждый второй столбец упорядочить по возрастанию и
найти, на сколько увеличилось количество таких упорядоченных
столбцов.( в паскале решить)

спасибо)

constn=5;m=10;varb:array[1..n,1..m]of integer;i,j,k,buf,l:integer;begin    for i:=1 to n do         begin           writeln;              for j:=1 to m do                 begin                    b[i,j]:=random(50);                    write(b[i,j]:4);                  end;           end;writeln;for j:=1 to m do   begin      k:=0;       for i:=1 to n-1 do            if b[i,j]<b[i+1,j]then                k:=k+1;            if k=n-1 then               buf:=buf+1;    end;k:=0;for l:=2 to m do   if l mod 2=0 then     for i:=1 to n-1 do       for j:=i+1 to n do           if b[i,l]>b[j,l]then               begin                   k:=b[i,l];                   b[i,l]:=b[j,l];                   b[j,l]:=k;                end;writeln('увеличилось  ',m div 2-buf);for i:=1 to n do   begin      writeln;          for j:=1 to m do             write(b[i,j]:4);    end;end.