Шифр Цезаря на PascalABC

[Dasha94]

Здравствуйте, дорогие форумчане! Прошу Вашей помощи! Задача состоит в шифровании введенного текста и указания сдвига. В коде нужно в массив поместить алфавит, состоящий из букв и символов. Вот код, шифрование происходит, но проблема в том, что введенный алфавит не участвует в коде. Что следует изменить?

var
a: array['а'..'я'] of string;
i, s: integer;
p: string;
begin
writeln ('Введите предложение');
readln (p);
writeln ('Чему равен сдвиг?');
readln (s);
for i:=1 to length(p) do
p[i]:=chr(ord(p[i])+s);
writeln (p);
end.

[Streletz]

Начнём с того, что объявленный массив с алфавитом нигде в программе не используется.
После ввода делайте поиск по массиву для определения номера символа и по нему выполняйте сдвиг.