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

Здравствуйте, возникли трудности с работой с файлами. Дан текстовый файл, переписать его в другой, заменяя каждый символ на его код в таблице Ascii

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

  Close(x);
  Close(y);

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

Закрываем файлы x и y с помощью оператора Close().
Открываем файл x для чтения и файл y для записи с помощью функций Open() и Rewrite() соответственно.
Считываем содержимое файла x в переменную s.
Перебираем символы в строке s с помощью цикла while.
Для каждого символа выполняем следующие действия:
1. Получаем код символа в таблице Ascii с помощью функции GetByte().
2. Записываем код символа в переменную c.
3. Заменяем символ в строке s на его код, используя оператор замены строки %.
4. Перемещаем указатель на следующую позицию в строке s с помощью оператора ++.
Повторяем шаги 6-9 для всех символов в строке s.
Закрываем файлы x и y с помощью оператора Close().
Открываем файл y для чтения и записываем в него переписанное содержимое файла x с помощью функций Open() и Rewrite() соответственно.
Закрываем файл y с помощью оператора Close().