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

const n=5;m=10; var b: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[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.