Криптография, Причем, примитивная :) Опции

[Дюдя]

Решил написать примитивный шифровальщик
Идея такая: вводим слово, а программа сдвигает каждую букву вперед по алфавиту.
"А" меняется на "Б", "Б" на "В" и т.д.
Но беда - не сообразил, как сделать. Натолкните на верную мысль, пожалуйста

[Дюдя]

Получился шифровальщик для самых маленьких

Код

program shtirliz;
uses crt;
const
alpha: string = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 !@#$%^&*(),/2';

var
s: string;
i: byte;

begin
clrscr;
write('Enter text: ');
readln(s);
  for i := 1 to length(s) do
    s[i] := alpha[(pos(s[i], alpha) mod Length(alpha)) +1];
  for i := 1 to length(s) do
  write(s[i]);
readln;
write('Now we will decode it! Press enter!');
readln;
  for i := 1 to length(s) do
    s[i] := alpha[(pos(s[i], alpha) mod Length(alpha)) -1];
  for i := 1 to length(s) do
  write(s[i]);
readln;
end.