Как изменить тип ключа в шифре цезаря с числового на буквенный(Ключове слово), в данной программе - Pascal - Ответ 8786126

const
  C = 65;
 
type
  select = (shifrovat, deshifrovat);
 
var
  S, key: string;
  Oper: select;
  Z: integer;
 
function charCrypt(arg: char; z: byte): char;
var
  x: integer;
begin
  case Oper of
    shifrovat:     x := (Ord(arg) + Ord(key[z])-129) mod 26+ c;
    deshifrovat: x := (Ord(arg) - Ord(key[z])+129) mod 26 + c;      
  end;
  charCrypt := Chr(x);
end;
 
procedure Crypto(var arg: string);
var
  k, ik: integer;
begin
  ik := 1;
  for k := 1 to Length(arg) do
    case arg[k] of 
      #65..#90:
        begin
          arg[k] := charCrypt(arg[k], (ik - 1) mod length(key) + 1 );
          ik := ik + 1;
        end;
    else  arg[k] := s[k];
    end;   
end;
 
begin
  repeat
    Write('Введите строку: ');Readln(S);
    Write('Введите ключ: ');Readln(key);
    Writeln('Укажите операцию: 1– шифровать,  2– расшифровать, Прочие – выход');
    Readln(Z);
    if      Z=1 then Oper:=shifrovat 
    else if Z=2 then Oper:=deshifrovat  
    else             Break;
    Crypto(S);
    Writeln(S); 
  until false;
end.