i am using free pascal...
i haven't looked at loop construction yet