Помогите с программированием в Paskal⁠⁠

Написал вот такой код. В чем ошибка, не пойму. В паскале я сижу 2дня, не серчайте.

Если что, ошибка в begin, просит поставить end в конце, но когда я ставлю ошибку выдает. Помогите....