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

[Анна997]

Порядок действий для режима шифрования:
1. Ввести строку текста:

write('Введите текст для шифрования: ');
read(s);
writeln('-------------------------------------------------');
2. Ввести размер блока:

write('Введите количество цифр в ключе: ');
readln(key);
3. Если длина строки не кратна размеру блока, дополнить ее пробелми до нужной длины:

len:= length(s);
while len mod key<>0 do
begin
s:=s+' ';
inc(len)
end;
4. Ввести порядок перестановки и проверить, составляют ли числа,
задающие порядок перестановки, правильный ключ, т.е. каждое число
должно встречаться один раз:

writeln('Введите ключ из ',key,' цифр: ');
repeat
v:=0;
for i:=1 to key do
begin
read(p);
a[i]:=p
end;
for i:=1 to key-1 do
for j:=i+1 to key do
if a[i]=a[j] then inc(v);
if v<>0 then
begin
writeln ('Ошибка! Символы ключа не уникальны!');
write('Введите ключ из ',key,' цифр: ');
end
until v=0;
5. Осуществить перестановку по заданному правилу:

while v<>len do
begin
for i:=1 to key do
r[i+v]:=s[a[i]+v];
v:=v+key
end;
6. Вывести полученное зашифрованное сообщение:

writeln('--------------------------------------------------');
write('Зашифрованный текст: ');
for i:=1 to len do
write(r[i]);
writeln;

Помогите написать все в одну программу, что бы в программе можно было выбирать режим шифрования или расшифровки

Пример . Открытый текст: "ШИФРОВАНИЕ_ПЕРЕСТАНОВКОЙ".
Ключ (правило перестановки): группы из 8 букв с порядковыми номерами
1, 2, ..., 8 переставить в порядок 3-8-1-5-2-7-6-4.
Шифртекст: "ФНШОИАВР_СИЕЕЕРПННТВАОКО".