{Izveidot masivu (4x6) un aizpildit ar skaitliem.
Noskaidrot un izvadit uz ekrana informaciju, vai
visas masiva rinda skaitli ir dilstosha seciba.}

uses crt;
const nn=4; {rindu skaits}
      mm=6; {kolonnu skaits}
type
    elem =integer;
    matrix = array [1..nn, 1..mm] of elem;
var n,m,i,j : integer;
    a:matrix;

    procedure readmatrix( var a: matrix; var n, m :integer);
    var i,j : integer;
    begin
     repeat write('Ievadi rindu skaitu: ');readln(n)
     until (n>0) and (n<=nn);
     repeat write('Ievadi kolonnu skaitu: ');readln(m)
     until (m>0) and (m<=mm);
     for i:=1 to n do begin
      for j:=1 to m do begin
       writeln('A[',i,j,']= '); readln(a[i,j])
      end end
    end;

    procedure printmatrix(a :matrix; n,m: integer);
    var i,j: integer;
    begin for i:=1 to n do
      for j:=1 to m do begin
       write(a[i,j]:6);
       if j=m then begin writeln;
       for j:=1 to m do begin
       end; writeln
      end end
    end;

    function checkrow(const a: matrix; row: integer): boolean;
    var i: integer;
    begin i:=1;
    while (i<m) and (a[row,i])<=a[row, i+1]) do inc(i);
    checkrow:=(i=m);
    end;

    function checkmatrix(const a: matrix): boolean;
    var i: integer;
    begin i:=1;
    while (i<=m) and checkrow(a, i)) do inc(i);
    checkmatrix:=(i>m);
    end;

begin
clrscr;
readmatrix(a,n,m);
writeln;
writeln('Matrica:');
printmatrix(a,n,m);
writeln;
writeln(checkmatrix(a));
readkey;
end.