Переписать текстовый файл в другой, выполнив перекодировку каждого непробельного символа - Turbo Pascal

Формулировка задачи:

Переписать текстовый файл в другой,выполнив перекодировку каждого непробельного символа путем замены его на соседний по таблице ASCII. помогите пожалуйста,буду очень благодарен.

Решение задачи: «Переписать текстовый файл в другой, выполнив перекодировку каждого непробельного символа»

Листинг программы

uses wincrt;
var
  s : string;
  i : byte;
begin
  writeln('s:');readln(s);
  for i:=1 to length(s) do
    if s[i] <> ' '
      then
        s[i] := chr( ord(s[i]) + 1);
  writeln(s);
end.

Объяснение кода листинга программы

В первой строке используется библиотека wincrt, которая содержит функции для работы с консолью.
Переменная s представляет собой строку, которую необходимо обработать.
Цикл for выполняется от 1 до длины строки s.
Внутри цикла проверяется каждый символ строки s.
Если символ не является пробелом, то он заменяется на следующий символ в алфавитном порядке (с помощью функции ord и прибавления 1 к его числовому значению).
После обработки каждого символа строка s выводится на экран.