ПОМОГИТЕ! СРОЧНО ИНФОРМАТИКА!!!

По неубыванию:

 program CheckOrder;

var

  n, m, i, j, k, l: integer;

  a: array[1..1000, 1..1000] of integer;

  u, v: boolean;

begin

  write('Размерность массива (не менее 2x2 и не более 1000x1000) через пробел: ');

  readln(n, m);

  if (n < 2) or (n > 1000) or (m < 2) or (m > 1000) then begin

    writeln('Неправильная размерность массива');

    exit

  end;

  write('Элементы массива (', n, ' строк по ', m, ' на строке через пробел: ');

  for i := 1 to n do

    for j := 1 to m do

      read(a[i, j]);

  write('Строка и столбец для проверки: ');

  readln(k, l);

  if (k < 1) or (k > n) or (l < 1) or (l > m) then begin

    writeln('Неправильный номер строки или столбца');

    exit

  end;



  u := true;

  for j := 1 to m - 1 do begin

    if u and (a[k, j] > a[k, j + 1]) then begin

      writeln('Строка ', k, ' не упорядочена, индекс нарушителя: ', j + 1);

      u := false

    end

  end;

  if u then

    writeln('Строка ', k, ' упорядочена');



  v := true;

  for i := 1 to n - 1 do begin

    if v and (a[i, l] > a[i + 1, l]) then begin

      writeln('Столбец ', l, ' не упорядочен, индекс нарушителя: ', i + 1);

      v := false

    end

  end;

  if v then

    writeln('Столбец ', l, ' упорядочен')

end. 

Для изменения порядка сравнения меняем оператор сравнения в циклах:

 if u and (a[k, j] < a[k, j + 1])



if v and (a[i, l] < a[i + 1, l]) 

Примеры:

 Размерность массива (не менее 2x2 и не более 1000x1000) через пробел: 2 2

Элементы массива (2 строк по 2 на строке через пробел: 1 2 4 3

Строка и столбец для проверки: 2 2

Строка 2 не упорядочена, индекс нарушителя: 2

Столбец 2 упорядочен



Размерность массива (не менее 2x2 и не более 1000x1000) через пробел: 3 4

Элементы массива (3 строк по 4 на строке через пробел: 5 6 7 8 5 6 8 8 5 6 8 7

Строка и столбец для проверки: 2 3

Строка 2 упорядочена

Столбец 3 упорядочен