Составить программу которая кодирует введеное с клавиатуры слово заменяя буквы их кодами увеличинными на 3

var s:string;

 i:byte;

begin

writeln('Введите слово:');

readln(s);

writeln;

writeln('Их номера в алфавите:');

for i:=1 to length(s) do

case s[i] of 

 'А'..'Я' : write(ord(s[i])-1038+' ');

 'а'..'я': write(ord(s[i])-1070+' ');

end;

readln

end.