Я же Вам написал условие в первом сообщении. По поводу ошибки - она выскакивает, потому что у Вас типы переменных a[i] и s разные. Сделайте один, лучше real для обеих,тогда всё будет нормально.