[Alegun]

Здесь чисто невнимательность, блоки begin\end не соблюдены и else
просто завис в воздухе

З.Ы. end; перед else к кейсу (case) относится, нужен закрывающий блок условия (if..then) end без точки с запятой