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

var s:string; i:byte;beginwriteln('Введите слово:');readln(s);writeln;writeln('Их номера в алфавите:');for i:=1 to length(s) docase s[i] of  'А'..'Я' : write(ord(s[i])-1038+' '); 'а'..'я': write(ord(s[i])-1070+' ');end;readlnend.