Функция расшифровки текста

[SandKing]

Всем привет. Возникла загвоздка в решении.
В задаче есть функция, которая призвана расшифровать текст на англ.языке, который закодирован при помощи сдвига букв (способ Цезаря). Знаки препинания не меняются, регистр букв сохраняет свое исходное значение. Буква "z" переходит в "а".
Вот что получилось:
-------------------------------------------------
FUNCTION FindText(S: string):string;
{S - строка. С помощью S мы считали из файла зашифрованный текст}
Begin
for i:=1 to Length(S) do
if (Ord(S[i]) in [66..89]) or (Ord(S[i]) in [98..121]) then
S[i]:=Chr(Ord(S[i])-N)
else if S[i] = 'A' then S[i]:='Z'
else if S[i] = 'a' then S[i]:='z'
else if S[i] = 'Z' then S[i]:='A'
else if S[i] = 'z' then S[i]:='a';
WriteLn(FileOut, S);
S:='';
End;
-------------------------------------------------
Вроде все верно, но на выходе наряду с верно распознанными символами получаются неизвестные природе крякозябры, аки буква "а" переходит в символ "|", и т.п. Что не так?