{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;

begin
clrscr;
readmatrix(a,n,m);
writeln;
writeln('Matrica:');
printmatrix(a,n,m);
for j:=1 to m do i:=1;
 while (i<=n-1) and a[i]>a[succ(i)] do inc(i);
 end;writeln;
if i=n then writeln('Ir dilstosha') else writeln('Nav dilstosha');
readkey;
end.