Дана строчка содержащая зашифрованный российский текст.каждая буква заменяется на последующую за

program zz1;
var s:string; // задаем переменную строкового типа
s1:char; // задаем переменную символьного типа
i:integer; // задаем переменные целого типа
begin
write( введите строчку );
read( s); // вводим с клавиатуры строчку
for i:=1 to length(s) do // организуем цикл, в котором переберем все знаки от первого до последнего
if (s[i] = а) //проверяем, если знак строчки буковка "а", то
then begin s1:=s[i];delete(s,i,1);insert(я,s,i);end // заменяем ее на "я"
else begin s1:=s[i];delete(s,i,1);insert(chr(ord(s1)-1),s,i);end; // иначе сменяем ее на предшествующую буковку в алфавите
writeln( приобретенная строчка = , s); // выводим ответ

end.