Смоделировать шифр Цезаря: пусть пользователь вводит 3-х буквенные слова.Программа должна выводить зашифрованные слова с сдвигом Цезаря, решить в паскаль. Помогите пожалуйста,очень срочно!Заранее благодарю.

Для строчных русских букв: 

var s:string;
k,i,c:integer; 
begin   
writeln(Введите 3-x буквенное слово:);   
readln(s);   
write(Введите ключ: );   
readln(k);   
for i:=1 to length(s) do   
begin     
c:=ord(s[i])+k;   
if cgt;1103 then c:=c-32;     
s[i]:=chr(c);     
write(s[i]);   
end;  
end.