помогите найти ошибку в программе в Pascal

Бесплатная регистрация

Пароль должен содержать не менее шести знаков.