Помогите составить программу string 3,буду очень благодарна,очень срочно нужно.
Вот условие: Имеется строка текста. Требуется написать программу, которая зашифровывала бы ее в другую строку — заменяя каждый символ текста символом, следующим по порядку в таблице ASCII. Тогда слово КОТ превратится в слово ЛПУ. Требуется составить и программу дешифровки.
Использовать функции для работы с символами: chr и ord pascal.

НО ЧТОБ ОНА БЫЛА СОСТАВЛЕНА НАПОДОБИЕ ЭТОЙ ЗАДАЧИ

var s, encoded_s: string;

i: integer;

begin

 write('Введите строку: ');

 readln(s);

 for i:=1 to length(s) do

   encoded_s:=encoded_s + chr(ord(s[i]) + 1);

 writeln(encoded_s);

end.