Задача на расшифрование текста

[evg_m]

textmatr:=dtext;
Это же самое делает последующий цикл.
А dtext до сих пор не инициализирована.
зачем тебе вообще эта переменная

P.S. да и второй ключ (key2) никто не ввел.

    writeln('Введите первый ключ из 6 цифр: ');

[Pistoletka]

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

textmatr:=dtext;
Это же самое делает последующий цикл.
А dtext до сих пор не инициализирована.
зачем тебе вообще эта переменная

P.S. да и второй ключ (key2) никто не ввел.

В этом цикле формируется вспомогательная матрица по второму ключу.

for j:=1 to 4 do
 for i:=1 to 6 do
 textmatr[i,key2[j]]:=dtext[(j-1)*6+i];

По идее text, dtext – это строки открытого и закрытого текста.

[evg_m]

А dtext до сих пор не инициализирована.

ГДЕ у тебя чтение(заполнение) этой строки dtext ?
хотя бы одна из ниже приведенных строк

readln(dtext);

dtext:=...............

dtext[j]:=...............

[Pistoletka]

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

ГДЕ у тебя чтение(заполнение) этой строки dtext ?
хотя бы одна из ниже приведенных строк

readln(dtext);

dtext:=...............

dtext[j]:=...............

Я смотрю на код, как баран на новые ворота, и уже совсем ничего не пойму. dtext введен, но он зацикливается после ввода первого ключа. Уже стыдно, что так долго доходит.

Program rasshifr;
const n=30;
var
 text, dtext:string;
 c:char;
 key1, key2:array[1..n] of integer;
 textmatr:array[1..6,1..4] of char;
 i, j, v, len:integer;
Begin
 write('Введите текст для шифрования: ');
 read(text);
 writeln('-------------------------------------------------');
 len:=length(text);
 If len=24 then
  begin
   writeln('Введите первый ключ из 6 цифр: ');
   repeat
    v:=0;
    for i:=1 to 6 do
     begin
      read(c);
      key1[i]:=ord(c);
     end;
   for i:=1 to 5 do
    for j:=i+1 to 6 do
     if key1[i]=key1[j] then inc(v);
     if v<>0 then
      begin
       writeln ('Ошибка! Символы ключа не уникальны!');
       writeln('Введите первый ключ из 6 цифр: ');
      end
    until v=0;
    readln(dtext);
    for j:=1 to 4 do
     for i:=1 to 6 do
      textmatr[i,key2[j]]:=dtext[(j-1)*6+i]; 
      text:='';
    for i:=1 to 6 do
     for j:=1 to 4 do
      text:=text+textmatr[key1[i],j];
   writeln('Расшифрованный текст:',' ',text)
  end
 else writeln('Неверно')
 End.

[evg_m]

dtext введен, но он зацикливается после ввода первого ключа. Уже стыдно, что так долго доходит.

А зачем(почему) вы опять вернулись к своему первоначальному варианту ввода?
ведь у вас надеюсь вариант из
http://programmersforum.ru/showpost....2&postcount=10
работал нормально( не зацикливался).
Ах да, там была ошибка. Ну так исправьте ЕЕ (эту ошибку) также как это сделали в своем "последнем" варианте.

textmatr:=dtext;
   readln(dtext);