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

Вот так:

 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])