Матрица, определить сколько строк упорядоченно в ней

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  b: array[1..nmax*nmax] of integer;
  n,m,i,j,k,imax,imin,x: integer;
  boo: boolean;
begin
  repeat
    write('Ââåäèòå ðàçìåðû ìàòðèöû n, m: ');
    readln(n,m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  for i:=1 to n do
    for j:=1 to m do
    begin
      write('a[',i,',',j,']=');
      readln(a[i,j]);
    end;
  x:=0;
   writeln('Èñõîäíàÿ ìàòðèöà:');
   for i:=1 to n do
   begin
     boo:=true;
     for j:=1 to m do
     begin
       if (j>1) and (a[i,j]<a[i,j-1]) then
         boo:=false;
       write(a[i,j]:4);
     end;
     if boo then
     begin
       inc(x);
       for j:=1 to m do
       begin
         inc(k);
         b[k]:=a[i,j];
       end;
     end;
     writeln;
   end;
   writeln(' ìàòðèöå óïîðÿäî÷åíî ',x,' ñòðîê');
   imax:=1; imin:=1;
   writeln('Èñõîäíûé ìàññèâ:');
   for i:=1 to k do
   begin
     if b[i]>b[imax] then imax:=i;
     if b[i]<b[imin] then imin:=i;
     write(b[i],' ');
   end;
   writeln;
   writeln('Ìèíèìóì = b[',imin,'] = ',b[imin]);
   writeln('Ìàêñèìóì = b[',imax,'] = ',b[imax]);
   b[imin]:=0; b[imax]:=0;
   writeln('Ïðåîáðàçîâàííûé ìàññèâ:');
   for i:=1 to k do write(b[i],' ');
   readln;
end.