[Petros9n]

Здравствуйте, ситуация такая: есть сообщение которое хранится в массиве начиная со второй строки, и есть ключевое слово которое заносится в первую строку массива но в отсортированном по алфавиту виде, затем надо в массиве менять местами столбцы так чтобы получить обратно исходное ключевое слово, таки образом выполнив шифрование.

Для реализации этого написал вот такое, но работает не очень

Код:

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 - ключевое слово

этот алгоритм при некоторых значениях ключевого слова его восстанавливает не правильно, а также он мне вообще не совсем подходит поскольку надо чтоб если в ключевом слове есть одинаковые буквы то они должны упорядочивается по алфавиту слева направо а потом восстанавливаться на свои места, а в данном случаи они могут перемешаться. Прошу Вас доработать этот алгоритм или предложить другой, если надо могу выложить исходники.