const english = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
const russian = 'АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

var
  a,kl,sh, encrypted:string;
  th: array[1..255] of Char;
  ch,dh,ah:array[1..255] of integer;
  l,d,i,i2:integer;


begin
  i2:=0;
  writeln('enter the key:');
  readln(kl);
  writeln('Enter The word:');
  readln(sh);
  l:=Length(kl);

  for i:=1 to Length(kl) do
    case kl[i] of 'A'..'Z':
        begin;
        ch[i] := pos(kl[i], english);
        end;
    'А'..'Я':
        begin;
        ch[i] := pos(kl[i], russian);
        end;
    'a'..'z':
        begin;
        ch[i] := pos(kl[i], smallEnglish);
        end;
    'а'..'я':
        begin;
        ch[i] := pos(kl[i], smallRussian);
        end;

  for i:=1 to Length(sh) do
    case kl[i] of 'A'..'Z':
        begin;
        dh[i] := pos(sh[i], english);
        end;
    'А'..'Я':
        begin;
        dh[i] := pos(sh[i], russian);
        end;
    'a'..'z':
        begin;
        dh[i] := pos(sh[i], smallEnglish);
        end;
    'а'..'я':
        begin;
        dh[i] := pos(sh[i], smallRussian);
        end;

//TYT 3AKOH4U/\
  for i:=1 to Length(sh) do
    begin
      if (i <= l) then
        ah[i] := ch[i] + dh[i]
      else
        if ((i mod l) <> 0) then
          ah[i] := ch[i mod l] + dh[i]
        else
          ah[i] := ch[Length(kl)] + dh[i];
      if (ah[i]>33) then
        ah[i]:=ah[i]-32;
    end;

  for i:=1 to Length(sh) do
    encrypted[i] := ;
      th[i] := russian[ah[i]];
writeln('Зашифрованное слово: ');
for i:=1 to Length(sh) do
  write(th[i]);
end.