Шифровка и расшифровка через текстовые файлы в Паскале

[Novenkaja]

Сообщение от evg_m

массив M это НОМЕРА ячеек квадрата записанные в порядке чтения при расшифровании.
( прочитал повернул прочитал ... )
читаем с нужных мест



при шифровании первый лист берем пустой(чистый)
накладываем второй( с дырками) вписываем буквы (ставим на нужное место)
с - - -
- - о -
- - - л
- - н -
поворачиваем вписываем
поворачиваем вписываем
поворачиваем вписываем
начинаем новый квадрат (если нужно).

так это на листе,а в коде в ране как?

[evg_m]

так это на листе,а в коде в ране как?

попробуйте выводить (посмотреть) строки
txt res1 res2 на каждом шаге циклов for
Если есть желание можете это строки выводить в виде квадратов 4x4

copy(txt,1,4)   copy(res1,1,4)
copy(txt,5,4)   copy(res1,5,4)
copy(txt,9,4)  copy(res1,9,4)
copy(txt,13,4)  copy(res1,13,4)

вот эти строки

for j:=1to length(res1) do res1[j]:='.'; //новая строка длины исходной с избытком и контрольным заполнением(очисткой)

    txt[n+j]:='_';

for j:=1to length(res2) do res2[j]:='.';//новая строка длины исходной с избытком и контрольным заполнением

    res1[n+m[j]]:='_';

были введены исключительно для наглядного (визуального) контроля процессов работы алгоритма.