Задача на Числовой Массив

[goGAS]

Товарищи выручите пжл) Такая задача:
Проверить, является ли одномерный числовой массив упорядоченным по возрастанию. Если не упорядочен, то определить позицию первого элемента стоящего на своем месте.

[XeruH]

И что у тебя не работает? Как пытаешься сделать?
Неужели трудно пройти по одномерному массиву и сравнивать два рядом стоящих элемента?

[Don Karleone]

const
  n = 20;
var
  mas: array [1..n] of integer;
  flag: boolean;
  i: integer;
begin
  randomize;
  for i:=1 to n do
    mas[i]:=random(50);
  flag:=false;
  i:=1;
  repeat
    Inc(i);
    if mas[i] < mas[i-1] then flag:=true;
  until flag or (i = n);
  if not flag then writeln('упорядочен по возрастанию')
                else 
                  begin
                    writeln('не упорядочен по возрастанию');
                    writeln('символ №',i);
                  end;
end.

вроде так.

[goGAS]

Спасибо Don Karleone