Дана матрица  A(N, M) . Постройте вектор  B(N) , элементы  Bi  которого равны единице, если элементы  i-ой строки образуют упорядоченную по убыванию или по возрастанию последовательность, и нулю во всех остальных случаях — Pascal(Паскаль)

const m=3; n=4;
var a:array[1..n,1..m] of integer;
    i,j:integer;
    flag:boolean;
    x:array[1..n] of integer;
begin
     for i:=1 to n do
         for j:=1 to m do
         begin
              writeln('Введите a[',i,j,']');
              read(a[i,j]);
         end;
     for i:=1 to n do
     begin
         flag:=false;
         for j:=1 to m do
             if a[i,j]>0 then flag:=true;
         if flag=true then x[i]:=1 else x[i]:=0;
     end;
     writeln('Вектор X:');
     for i:=1 to n do
         write(x[i]:4);
readln;
end.