Сдвиг символа алфавита

  String newline;
    char ch[151]={' ','!','#','$','%','&','"','(',')','*','+','-','[','.','/',',',  
     '0','1','2','3','4','5','6','7','8','9',':',';','<','=','>','?',
     '@','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O',
     'P','Q','R','S','T','U','V','W','X','Y','Z','a','b','c','d','e','f',
     'g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z',
    'А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й','К','Л','М','Н','О','П','Р',
    'С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я','а','б', 'в',
     'г','д','е','ё','ж','з','и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р',
     'с', 'т', 'у', 'ф', 'х', 'ц','ч','ш', 'щ', 'ъ','ы','ь','э','ю','я' };
 
   String line=Memo1->Text;// считываю из мемо текст, перевожу его в массив символов
       Memo1->Clear();
       char st[1000];
   for (int k=1; k<=line.Length(); k++)
   {
    st[k]=line[k];}
 
 
    String l=Edit2->Text;;
    char ki[1000];
 
   for (int m=1; m<=l.Length(); m++)
   {
    ki[m]=l[m];//перевожу ключ в массив символов
 for (int j=0;j<=151;j++){
 if (ch[j]==ki[m]) //если в алфавите буква совпала с буквой ключа
 {
for (int i = 1;i<=line.Length();i++) { //цикл для массива символов из поля мемо
  for (int j=0;j<=151;j++){//цикл для алфавита
if (ch[j]==st[i]) {//если символ алфавита и мемо совпал
        newline=newline+ch[(j+m)%151];//строке присваиваем символ алфавита  с индексом - номером буквы + сдвиг
        Memo1->Text=String(newline); }
                                }  }   }   }
      }