[km_]

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

Скажу одно: жесть прога.

Код:

state:array[1..100, 1..100] of string;

- зачем? когда массив 4х4? Зачем текстовые строки?

А какие? Char?

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

Код:

s:=copy(str1, 1, 1);

А это к чему?

Что-бы из строки вырезать символ и вставить его в массив.

А вобще правильно первый блок шифрует?