Сортировка псевдослучайным перемешиванием, Нужен код программы Опции

[Денис 1988]

Всем доброго здравия, нужна программка,на Turbo Pascal. Надо реализовать программу шифратор текста и использованием перемешанного алфавита. Грубо говоря есть алфавит,мы выводим его на экран и вводим предложение/слово, далее следует перемешивание алфавита и шифрация нашего предложения/слова в соответствии с перемешанным алфавитом. Далее в той же программе,реализовать программу дешифратор, с использованием перемешанного алфавите в качестве ключа..как бы первая часть программы не вызывает затруднений,но все равно хотелось бы увидеть ваши мысли по этому поводу, так как у каждого разная фантазия-мышление) Вся проблема в реализации дешифровки..Желательно написать программу более примитивным чтоли языком..ибо на таком уровне я смекаю ,что к чему..Желательно к вечеру пятницы,получить уже хоть какой-нибудь материал.

Заранее спасибо.
С уважением,Денис

[Денис 1988]

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

var
  Key,Yek,s: string;
  i,j,AlphaLen: integer;
  c: char; 
begin
  Randomize;
  Key:= 'abcdefghijklmnopqrstuvwxyz';
  AlphaLen:= Length(Key);
  for i:=AlphaLen to 2 do begin //вот тут жалуется и не всегда правильно или корректно срабатывает 
    j:= Random(i)+1;
    c:= Key[i];
    Key[i]:= Key[j];
    Key[j]:= c
  end;
  WriteLn('Перемешанный алфавит: ',Key);
 

.