Шифрование методом перестановки с ключом

AnsiString Key=Edit1->Text; // Слово-ключ
AnsiString slovo=Edit2->Text; // Текст для шифровки
AnsiString ABC="абвгдеёжзийклмнопрстуфхцчшщьыъэюя";
AnsiString A[100][100];
AnsiString ChKey;
int i=1;
int j=1;
int r=1;
int a=1;
float n=Key.Length(); // кол-во столбцов
float m=ceil(slovo.Length()/n); // кол-во строк
int point=0;
point=(n*m)-slovo.Length(); // количество необходимых точек
slovo=slovo+AnsiString::StringOfChar('.',point);
ShowMessage(slovo);
for (i=1; i<=ABC.Length(); i++)
for (j=1; j<=Key.Length(); j++)
if (Key[j]==ABC[i])
{
ChKey[r]=i;
r++;
}
for (j=1; j<=Key.Length(); j++)
Label1->Caption=Label1->Caption+IntToStr(ChKey[r]);
/*
//заполняем двумерный массив нашим шифруемым текстов(словом)
for (i=1; i<=m; i++)
for (j=1; j<=n; j++)
{
A[i][j]=slovo[a];
a++;
}
//вывод двумерного массива
for (i=1; i<=m; i++)
{
for (j=1; j<=n; j++)
Memo1->Text=Memo1->Text+A[i][j];
{
Memo1->Lines->Add("");
}
}
//вывод двумерного массива
for (j=1; j<=n; j++)
for (i=1; i<=m; i++)
Label3->Caption=Label3->Caption+A[i][j];