В заданном массиве А[1:N] из N натуральных чисел найти наименьшее целое положительное число, не содержащееся в этом массиве — Pascal(Паскаль)

program PascalGuru;

uses crt;

var
  A: array [1 .. 100] of integer; { инициализация переменных }
  i, j, n, min: integer;
  b: boolean;

begin
  write('N= ');
  readln(n); { ввод размерности массива }

  writeln('Vvedite elementy massiva:');
  for i := 1 to n do
  begin
    write('A[', i, ']= ');
    readln(A[i]);
  end; { ввод элементов массива }
  clrscr;
  writeln('Vot vvedenye vami massiv: ');
  for i := 1 to n do
    write(A[i], ', '); { вывод массива на экран }
  writeln;
  writeln;

  for j := 1 to 9 do
  begin
    b := false;
    for i := 1 to n do
      if j = A[i] then
        b := true;

    if not b then
    begin
      writeln('Rezult: ', j);
      break;
    end;

  end;

  readln;

end.