Смотрим последнюю процедуру: после бегина идет строка
var flag of. Она там не нужна.
Да, сейчас вы описали переменные. Теперь вам осталось вставить правильную строку в правильное место программы. Подумайте.
И у вас есть еще минимум одна ошибка. Будете тестировать - найдете.
P.S. Опишите переменную, половина ошибок отсеется.