Здравствуйте, ситуация такая: есть сообщение которое хранится в массиве начиная со второй строки, и есть ключевое слово которое заносится в первую строку массива но в отсортированном по алфавиту виде, затем надо в массиве менять местами столбцы так чтобы получить обратно исходное ключевое слово, таки образом выполнив шифрование.
Для реализации этого написал вот такое, но работает не очень
Код:
procedure TMainForm.SortMas;
var
i,j,p,h:integer;
x:char;
begin
for p := 1 to Length(st) do
for j:=0 to m-1 do
if A[0,j]= st[p] then
begin
for h := 0 to n-1 do
begin
x:=a[h,j];
a[h,j]:=a[h,p-1];
a[h,p-1]:=x;
end;
end;
end;
где st - ключевое слово
этот алгоритм при некоторых значениях ключевого слова его восстанавливает не правильно, а также он мне вообще не совсем подходит поскольку надо чтоб если в ключевом слове есть одинаковые буквы то они должны упорядочивается по алфавиту слева направо а потом восстанавливаться на свои места, а в данном случаи они могут перемешаться. Прошу Вас доработать этот алгоритм или предложить другой, если надо могу выложить исходники.