Смоделировать шифр цезаря: пусть пользователь вводит 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 c>1103 then c:=c-32;     
s[i]:=chr(c);     
write(s[i]);   
end;  
end.