Pascal.Помогите решить задачу на шифрование.

[newuser]

Задача такого типа:
Дана строка символов (предложение). Зашифровать в ней все латинские символы с помощью циклической подстановки: A=>B=>C…Y=>Z=>A.

Помогите пожалуйста.

[Plague]

increment=1;
for i:=1 to length(s) do
s[i]:=chr((ord(s[i])+increment) mod 256);

[Virtson]

2 Plague: respect

[KoHgpaT]

У меня в принципе такое же задание, только мне необходимо шифровать не латинские символы, а написанные на кириллице. Помогите, буду премного благодарен.

[KoHgpaT]

Решил задачу, о которой писал выше сам, но у моего решения существенная проблема не могу задать с каким cдвигом производить шифрование. Его можно менять в теле программы, но по ходу выполнения когда вводишь ключ шифрования он автоматически становится нюлем, у кого есть соображения??
Листинг моей программы, может кому пригодится:
program lw7;
uses crt;
const n=255;
var s:string;
i,b:byte;
begin
clrscr;
writeln('Введите предложение:');
readln(s);
for i:=1 to n do
begin
b:=ord(s[i]);
if ((b>=160) and (b<175)) or ((b>=224) and (b<233)
or ((b>=128) and (b<159)) then
b:=b+1;
else
begin
if b=175 then b:=224;
if b=239 then b:=160;
if b=159 then b:=128;
end;
s[i]:=chr(b);
end;
writeln('Зашифрованное предложение:');
writlen(s);
readln;
end.

В общес вся проблема-то в том, что, если писать b:=b+1 или +1,+2, и так далее, то все работает нормально, но если брать вместо +1, например +k, и вводить его раньше основного кода шифрования, то к автоматически становится равен 0. И что делать???

[SuperVisor]

Попробуй инициализировать переменные в самом начале кода (даже приравнять к нулю). Может быть поможет...

[KoHgpaT]

Спасибо, действительно помогло, одной проблемой меньше.
Нашлась еще одна проблема. Не могу убрать псевдографику.
Так же какая-то странно с буквой п. У кого есть идеи?? Попробуйте мой код, проверьте.

[Olenka555]

Разработать модуль шифрования и дешифрования текста метода транспозиции. Напишите программу которая позволила бы шифровать и расшифровывать заданный текст с сохранением результата в файле. Транспозиция по принципу "Частокола" сост в том, что выбираются (пример для n=3) 1,4,7 и тд символы и располаг-ся единой группой, за ними помещ-ся 2,5,8 и тд затем 3,6,9 и тд