Для записи текста использованы большие и малые латинские буквы, цифры и разделители. Заменить каждую букву новым значением, циклически сдвинутым по алфавиту вправо на позиций ( задано).Например, при = 5 буква ‘a’ будет заменена буквой ‘f’, а буква ‘w’ — буквой ‘b’ — Pascal(Паскаль)

Program alf;
Uses crt;
Var a: string; l,i: byte;
Begin
Clrscr;
a:='abwZZ';
Writeln('Исходная строка: ',a);
Write('Введите размер сдвига: ');
Readln(l);
For i:=1 to length(a) do
Case a[i] of
'a'..'z':
If ord(a[i])+l<=122 then
a[i]:=chr(ord(a[i])+l)
else a[i]:=chr(ord(a[i])+l-122+96);
'A'..'Z':
If ord(a[i])+l<=90 then
a[i]:=chr(ord(a[i])+l)
else a[i]:=chr(ord(a[i])+l-90+64);
end;
Writeln('Результат: ',a);
End.