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

Формулировка задачи:

Агент 007 решал нелегкую задачу. Нужно найти такое минимальное число в диапазоне от 0 до 10000, чтобы его не было в массиве А. Помогите агенту. Формат ввода N A[1],A[2]...A[N] Формат вывода С где N- количество чисел в массиве А С-минимальное число в диапазоне от 0 до 10000, которого нет в массиве А помогите пж

Решение задачи: «Найти такое минимальное число в диапазоне от 0 до 10000, которого нет в массиве А»

Листинг программы

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.

Объяснение кода листинга программы

Константа nmax определяет максимальное значение числа, которое может быть в массиве A.
Переменная A представляет собой массив, в котором будут храниться числа.
Переменные i, j и n используются для итерации по массиву A.
Переменная min используется для хранения минимального числа в массиве A.
Переменная temp используется для временного хранения числа, чтобы можно было его заменить на предыдущее значение.
Цикл Repeat-Until используется для получения значения n от пользователя.
Цикл For используется для чтения значений из массива A.
Вложенный цикл For используется для сравнения чисел в массиве A.
Если текущее число меньше предыдущего, то они меняются местами с помощью переменной temp.
Переменная min обновляется, если найдено меньшее число, чем текущее min.
Цикл while используется для поиска минимального числа, которое не равно текущему min.
Если цикл while завершается и min равно nmax + 1, то выводится сообщение Нет элемента удовлетворяющего условию.
Если цикл while завершается и min не равно nmax + 1, то выводится сообщение Мин =,min.