Задачка по паскалю

[Dmitrij]

Дан целочисленный массив размера M. Если он является перестановкой, то есть содержит все числа от 1 до M, то вывести 0, в противном случае вывести номер первого недопустимого элемента.
помогите плиз решить, а то я новичок в паскале и не чего не понимаю

[slips]

const 
   M=10;
Var
i:Integer;
Mas:array[1..10] of Integer;
Pr:Boolean;
begin
      Pr:=false;
      for i:=1 to M do
                            begin
                                    write('Введите элемент массива:',i) read(M[i]);
                            end
      for i:=1 to M-1 do 
                        IF (M[i+1]-M[i])<>1 then
                             begin
                             Pr:=true;
                             exit
                             end; 
     IF Pr then 
                   writeln('Последовательность нарушена') else writeln('Последовательность верна');                         
end;

[Dmitrij]

Спасибо конечно... Только нарушение последовательности тут не при чем

[alex_fcsm]

По-моему проще всего отсортировать массив и проверить на соответствие индекса и содержимого массива(i=a[i]) - если нет то вывести a[i](элемент на котором нарушилась последлвательность)