Сделать проверку элементов одномерного массива по убыванию их значений.

Const
  n = 10;

var
  a: array[1..n] of integer := (1, 2, 3, 6, 4, 5, 9, 7, 8, 10);
  i: integer;

begin
  i := 0;
  repeat
    i := i + 1
  until (i = n) or (a[i] > a[i + 1]);
  if a[i] > a[i + 1] then
    Writeln('Нарушение на элементах ', i, ',', i + 1, ': ', a[i], '>', a[i + 1])
end.

Тестовое решение:
Нарушение на элементах 4,5: 6>4

Уж сколько раз твердили миру... чтобы языки указывали ._. Ну, ниже представлен пример для PascalABC

var
  a: array of integer := (9, 8, 7, 6, 7, 4, 3, 2, 1, 0);
  i: byte;
  b: boolean := true;

begin
  for i := 1 to length(a) - 1 do
    if (a[i] > a[i-1]) then
      b := false;
  writeln(b);
end.