    found := false; 
                    counter := 1;
                    while (not found) and (counter < size(hackstack)) loop
                        if haystack(counter) = needle then
                            found := true;
                        end if
                        counter := counter + 1;
                    end loop
                    </code></pre>
                    <ul>
                        <li>Testf&auml;lle:
                            <ol>
                                <li>