pascal/outvarloop