Код:
alpha:array [0..32] of byte;
for i:=byte('a') to byte('я') do alpha[i]:=ord(i);
Вот тебе массив для шифра Цезаря.
Код:
position:=byte('буква')-224;
А вот это позиция буквы в массиве.
Для входной строки s процедура шифрования будет примерно следующая:
Код:
for i:=o to length(s)-1 do
newS[i]:=byte(S[i]-221); //C учетом сдвига на 3 символа