Помогите доделать задачу в Delphi 7 - Вопросы по Delphi

Вопрос Помогите доделать задачу в Delphi 7

Регистрация
6 Мар 2013
Сообщения
82
Репутация
0
Спасибо
1
Монет
0
Пожалуйста имейте ввиду, что этот пользователь забанен
Условие на первом фото 18 вариант .
На 2 фото, то как я сделал .
Преподователь сказал чть я не выдержал структуру.
Около then пишет ошибку.
Помогите доделать прошу.
//otvet.imgsmail.ru/download/41328378_aef39176e74985254704cf0df55e37d6_120x120.jpg//otvet.imgsmail.ru/download/41328378_80e06b8b65440142152909a416426824_120x120.jpg
 
Сверху Снизу