Найти такое минимальное число в диапазоне от 0 до 10000, которого нет в массиве А - Pascal ABC

Const nmax=10000;
Var A:array[0..nmax] of integer;
    i,j,n,min:integer;
    temp:integer;
Begin
    Repeat
     write('N: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    For i:=0 to n - 1 do
     read(A[i]);
    For i:= n - 1 downto 1 do
     For j:=1 to i do
      if A[j] < A[j - 1] then
      Begin
        temp:= A[j];
        A[j]:=A[j-1];
        A[j-1]:=temp;
      End;
    min:=0;
    while (A[min] = min)and(min<=nmax) do inc(min);
    if min = nmax + 1 then writeln('Нет элемента удовлетворяющего условию')
     else writeln('Мин = ',min);
End.