Operatory and or

Mam taką procedurę:

   if (pos(Z1, Zmienna) > 0) or
         (pos(Z2, Zmienna) > 0) or
         (pos(Z3, Zmienna) > 0) or
         (pos(Z4, Zmienna) > 0) or
         (pos(Z5, Zmienna) > 0) or
         (pos(Z6, Zmienna) > 0) or
         (pos(Z7, Zmienna) > 0) or
         (pos(Z8, Zmienna) > 0) then

a chciałbym aby np żeby wyszukane Z2 i Z3 były and czyli by miało tak być

       if (pos(Z1, Zmienna) > 0) or
         (pos(Z2, Zmienna) > 0) and
         (pos(Z3, Zmienna) > 0) and
         (pos(Z4, Zmienna) > 0) or
         (pos(Z5, Zmienna) > 0) or
         (pos(Z6, Zmienna) > 0) or
         (pos(Z7, Zmienna) > 0) or
         (pos(Z8, Zmienna) > 0) then

Jednak bym musiał tworzyć dla każdego and nową procedurę. Jak to zapisać poprawnie ?

Lekcja na dziś: pętle + tablice.
Gydybyś te twoje Z1..Z8 miał w tablicy to argumentem procedury mógłby być indeks elementów do "and".