Najlepiej pytanie wyjaśnić na przykładzie:
mam taki kod:
los:=random(10); //nieistotne
zmienna[los]:=k[x] //gdzie k[x] to jakaś wartość
po zapętleniu otrzymamy:
repeat
zmienna[los]:=k //gdzie k to zmienna zapisana w pliku
until (zmienna[los]<>z[1])and(zmienna[los]<>z[2])and(zmienna[los]<>z[3]);
i tu tkwi problem jak to skrócić (bo 3 elementowa tablica potrafi się przemienić w 100 :)). Niestety niedziała taki zapis:
for i:=0 to 100 do
until (zmienna[los]<>z[i+1])
Mam nadzieję, że nie zostanę zbluzgany przez wytrawnych mistrzów Delfina :).