А разве это имеет значение? Спросили про ошибку, наверно синтаксическую, раз без уточнений (видимо компилятор не показывает номер строки с ошибкой). Вызывает подозрение if o='1' then be[length(be)+1]:='1'; Тут у нас по идее, выход индекса за границы, ибо и так берём длину, да ещё +1. Просто к данной строке надо прибавить эту единицу be := be+'1'; Ну а если речь именно про неверностьсложения двух бинарных чисел, то for i:=length(bmin)+1 to length(bmax) тут ты вроде обрабатываешь старшие байты большего числа, так как им нет пары, ноони то у тебя в начале строки, а ты индексы с конца берёшь.
|