Добавить букву W в конец каждой строки текстового файла - Pascal

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

Даны текстовый файл f. Добавить букву W на конец каждой строки текстового файла

Решение задачи: «Добавить букву W в конец каждой строки текстового файла»

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

const fName='a.txt';
var s: String;
begin
  Assign(input,fName); Reset(input);
  Assign(output,'b.txt'); Rewrite(output);
  while not EoF do begin
    ReadLn(s); WriteLn(s,'W');
  end;
  Close(input); Close(output);
  Erase(input); Rename(output,fName);
end.

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

Объявляется константа fName и присваивается значение a.txt.
Объявляется переменная s типа String.
Устанавливается связь с файлом a.txt для чтения.
Создается новый файл b.txt для записи.
Начинается цикл, выполняемый до тех пор, пока не будет достигнут конец файла.
В каждой итерации цикла происходит чтение строки из файла и запись этой строки в новый файл b.txt.
Закрывается связь с файлом a.txt и b.txt.
Удаляется исходный файл a.txt.
Переименовывается файл b.txt в a.txt. Данный код считывает содержимое текстового файла a.txt, добавляет букву W в конец каждой строки и сохраняет результат в файл a.txt.