program laba_2;
 uses crt;                                          {объявляем, што будим пользовать дополнительные процедуры и функции из модуля CRT}
 var x,y : byte;                                    {объявляем переменные, которые будут задавать размерность матрицы}
     nn : boolean;                                  {переменная, имеющая тока два значения, или true (истина) или false (ложь) удобна для использования в условиях if}
     matr : array [1..100,1..100] of integer;       {задаём матрицу, как обычно с запасом}
     B : array [1..100] of integer;                 {задаём вектор, в него будим записывать то што получтлось в результате выполения этой глупой проги}
     i,j :byte;                                     {объявляем вспомогательные переменные для циклов и подобной хрени}
  
begin
 clrscr;                                            {процедурка из модуля crt, очищающая экран}
 write ('razm x: ');                                {выводим строку на экран}
 readln (x);                                        {считываем значение для х}
 write ('razm y: ');                                {выводим на экран}
 readln (y);                                        {считываем значение для у}

 for i:=1 to x do                                   {цикл от 1 до х}
  for j:=1 to y do                                  {цикл от 1 до у, это вложенный цикл, патамушто массив двухмерный}
   begin
    write ('element ',i,', ',j,': ');               {выводим на экран строку и координаты элемента в матрице}
    readln (matr[i,j]);                             {считывем значение для элемента с координатами i,j}
   end;

   j:=1;                                            {присваиваем j единичку}
   nn:=true;

 for i:=1 to x do                                   {ещё один добанный цикл от 1 до х}
  begin
   for j:=1 to y-1 do                               {в этом цикле мы будим по порядку сравнивать все элементы строки , для проверки, является ли строка упорядоченной по возрастанию}
    if matr [i,j]>matr [i,j+1] then nn:=false;      {если хоть один элемент оказался не упорядоченным}
   if nn then B[i]:=1 else B[i]:=0;                 {то в В пишем 0, если все упорядочены то 1}
   nn:=true;                                        {по умолчанию значение true}
  end;

 for i:=1 to x do                                   {апать цикл от 1 до х, по количеству строк в матрице}
  write (B[i],', ');                                {выводим i-й элемент выходного вектора}

 readln;                                            {ждём пака юзер ни тыркнет на ентер}
end.