Зашифровать заданный текст на Паскале

[bad wolf]

Привет! Решите пожалуйста задачу, очень нужно попасть на олимпиаду) Зарание спасибо.

Зашифровать заданный текст (не более 255 символов), используя один перемешаннай алфавит, полученный случайной перестановкой букв исходного алфавита.
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ
ЕЖЧБПКЛАОТДУГЦЯЙХЫВЪЮИФСЩНЬЭЗШРМ

[Ghost of Night]

Берешь текст, и например после каждого символа вставляешь символ из этого алфавита.

[bad wolf]

ээ я суть понял но зделать немогу)) решите плиз ктонить)

[DRAgon™]

вот так наверно

uses crt;
 const k=10;

var n,i:integer;
bukvi	:set of 'А'..'Я';
s:string;
j:char;
begin
s:='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
Randomize;      	{Формируем случайным образом мно-жество bukvi}
	bukvi:=[ ]; 		{Начинаем формировать "с нуля"}
for i:=1 to k do begin
bukvi:=bukvi+[chr(Ord('А')+Random(32+1))];
    for j:='А' to 'Я' do
if ( j in bukvi)  then Insert(j,s,i+1);
end;
Write(s);
end.

[Ghost of Night]

Зачем снова генерить алфавит, если он уже дан?

var
 alf:String;
 text:string; //переменная содержащая текст
 i:Integer;
begin
 alf:='ЕЖЧБПКЛАОТДУГЦЯЙХЫВЪЮИФСЩНЬЭЗШРМ';
 for i:=1 to length(text) do
   text[i]:=text[i]+alf[Random(length(alf))];
end;

[pray_driver]

код цезаря значит, который как нефигделать расшифровывыется на большом послании ))

[Ghost of Night]

Зашифровать заданный текст (не более 255 символов), используя один перемешаннай алфавит

pray_driver Здесь не сказано о расшифровке этого текста.
Да и к тому же, идеального шифра нет, все можно взломать!