program FindSmallestUnusedCardinalTest;

{$APPTYPE CONSOLE}

var
    Numbers1: array [0 .. 6] of cardinal = (
        9,
        0,
        8,
        2,
        7,
        1,
        6
    ); // Smallest unused cardinal in this list is 3

    Numbers2: array [0 .. 9] of cardinal = (
        9,
        0,
        8,
        1,
        7,
        2,
        6,
        3,
        5,
        4
    ); // Smallest unused cardinal in this list is 10

function FindSmallestUnusedCardinal(const aArray: array of cardinal): cardinal;
var
    i: integer;
begin
    Result := 0;

    while (True) do
    begin
        for i := 0 to Length(aArray) - 1 do
        begin
            if (aArray[i] = Result) then
            begin
                Inc(Result);
                Break;
            end;
        end;
        if (i = Length(aArray)) then
            Break;
    end;
end;

begin
    WriteLn('Found: ', FindSmallestUnusedCardinal(Numbers1));
    WriteLn('Found: ', FindSmallestUnusedCardinal(Numbers2));
    ReadLn;
end.