Паскаль. Преобразование строки

[andronova]

Помогите, пожалуйста! Совсем не знаю ПАСКАЛЬ. А сделать нужно срочно!!!
Некоторый русский текст, хранящийся в файле, зашифрован следующим образом: каждая буква текста циклически сдвигается на одно и тоже количество символов, а все остальные символы (знаки препинания и пробелы) остаются неизменными. При шифровке большие буквы переходят в большие, а маленькие в маленькие. Будем для простоты считать, что русский алфавит состоит из 32 букв (за буквой «е» следует буква «ж»). Требуется написать программу автоматической расшифровки текста.
Вход: файл input.txt c зашифрованным текстом.
Ограничения: длина текста не превосходит 250 символов.
Выход: Файл output.txt с расшифрованным текстом.
Пример:
input.txt output.txt
А сбвпубя, оп а фтубм Я работаю, но я устал
Примечание: размер выходного файла должен совпадать с размеров зашифрованного файла, не должно появляться лишних пробелов, знаков препинания и прочих разделителей.

[Stilet]

Ну вот примерно так:

var s:string;zdvig,i:integer;
begin
 zdvig:=1;
s:='А сбвпубя, оп а фтубм';
for i:=1 to length(s) do begin
 if s[i] in ['а'..'я','А'..'Я'] then
  s[i]:=chr(ord(s[i])-zdvig);
end;
caption:=s;
end;

Разве что граничные буквы нужно будет подкорректировать.