For i:= 1 to 10 do
If Aaa[i]....
Next i

Как то так, вернее в конце end-for, не помню