Зашифровать строчку наибольшей длины типизированного файла, используя коды букв

[Anna17_04]

Помогите пожалуйста с задачей.
Создать текстовый файл. Зашифровать строчку наибольшей длины этого файла, используя коды букв. Зашифрованный текст записать в файл целых чисел

[ViktorR]

1. Правильно ли понята задача? Создать файл B, в который следует поместить код символов, входящих в самую длинную строку файла A.
2. Если это так, то:
- к шифрованию это не имеет отношения, эта процедура - кодирование (способ представления информации);
- алгоритм прост:

lenstr := 0; {длина строки}
maxstr := ''; {пустая строка}

а) Поиск длинной строки: В цикле читаем строки из файла, до тех пор, пока не получим признак конца файла
Если длина прочитанной строки больше lenstr, то lenstr присваиваем новое значение, maxstr присваиваем прочитанную строку;
Конец цикла.
б) Кодирование: В цикле просматриваем строку maxstr и для каждого симола получаем его код, например,

codsim := ord(maxstr[i]);

Пишем символ в файл.
Конец цикла.
в) Закрываем файл.
г) Смотрим файл в редакторе, например, Блокнот.


Как-то так, ...

[Anna17_04]

Теперь мне стало понятно. Спасибо за помощь