Шифрование перестановкой

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,windows;
Var
 Text,Text_1,Text_2,text_3,S:String;
 Textmatr:Array[1..6,1..4] of Char;
 i,j,q,k,kolsimvolov:integer;
 key1:array[1..6] of Byte;
 key2:array[1..4] of Byte;
 p,t,m:Boolean;
Begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
//-------------------------------------------------------------
  repeat
    Write('Введи текст для кодировки: ');
    Readln(Text);
    kolsimvolov:=Length(text);
    m:=True;
    if kolsimvolov>6*4 then m:=False;
     if not(m) then writeln('количество символов не должно превышать 24');
  until m;
 //-------------------------------------------------------------
  If (kolsimvolov mod 24)<> 0 then  //если кол-во символов текста не кратно кол-ву символов в блоке дополняем его пробелами
      begin
        text:=text+' ';
        Inc(kolsimvolov);
      end;
 //------------------------------------------------------------
  Repeat
    Writeln('Введите ключ1');
    for i:=1 to 6 do
    Readln(key1[i]);
    p:=true;
    for i:=1 to 5 do
    begin
       for q:=2 to 6 do
       if (key1[i]=key1[q]) then p:=false
    end;
    If Not(p) then writeln('Все символы должны быть различными!');
  Until  p;
 //------------------------------------------------------------- 
  Repeat
    Writeln('Введите ключ2');
    for i:=1 to 4 do
    Readln(key2[i]);
    t:=true;
    for i:=1 to 3 do
    begin
       for q:=2 to 4 do
       if (key2[i]=key2[q]) then t:=false
    end;
       If Not(t) then writeln('Все символы должны быть различными!');
  Until  t;
  Writeln;
 //------------------------------------------------------
 For i:=1 to 6 do
  For j:=1 to 4 do
   Textmatr[key1[i],j]:=Text[(i-1)*4+j];
   Writeln('  k1\k2      1        2        3        4');
 For i:=1 to 6 do
  begin
    Write('    ',i,'    ');
    For j:=1 to 4 do
    write('    ',textmatr[i,j],'    ');
    Writeln;
  end;
 //------------------------------------------------------
 Text_1:='';
 For j:=1 to 4 do
  for i:=1 to 6 do
  begin
    S:=textmatr[i,key2[j]];
    Text_1:=Text_1+S;
  end;
 Writeln('Закодированный текст:',' ',text_1);
 //-------------------------------------------------------
 Text_2:='';
 For j:=1 to 4 do
  begin
    S:=Copy(Text_1,(key2[j]-1)*6+1,6);
    Text_2:=Text_2+S;
  end;
 Text_3:='';
 For i:=1 to 6 do
  For j:=1 to 4 do
   begin
     S:=Copy(Text_2,(j-1)*6+key1[i],1);
     Text_3:=Text_3+S;
   end;
 Writeln('Раскодированный текст:',' ',Text_3);
//-------------------------------------------------------
 Writeln;
 Readln;
End.

  Repeat
    Writeln('Введите ключ1');
    for i:=1 to 6 do
    Readln(key1[i]);
    p:=true;
    for i:=1 to 5 do
    for q:=i+1 to 6 do //Здесь смотрите исправление !!!!!!!!!!!!!!!!
    if (key1[i]=key1[q]) then 
    Begin
       p:=false;
       Break; //Дальше проверять нет смысла
    End;
    If Not p then writeln('Все символы должны быть различными!');
  Until  p;

  If (kolsimvolov mod 24)<> 0 then  //если кол-во символов текста не кратно кол-ву символов в блоке дополняем его пробелами
     text:=text+StringOfChar(' ',24-kolsimvolov);