Помогите срочно!!!!Информатика ПАСКАЛЬ

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