[BrutalBit]

end; else // Анализ ответа

После end не должно быть ;

Да и еще есть такая сторочка чуть выше IbOutput.Caption :== 'Введите число:'; знака == не существует или он есть, потому что в этой строке тоже ошибка.

Может я чего-то не понял то там нету знака ==.