Большущее спасибо
Что-то напутал с di. di - указатель на очередной символ ключа. исправил на L := Length(strIn); { Сохраняем длину строки } L1 := Length(key); {...
Помогите, пожалуйста найти ошибку. Задание такое. "Разработать процедуру циклического кодирования строки байтов с по-мощью ключа N из битов...
Имена участников (разделяйте запятой).