Файл содержит буквы латинского алфавита. Заменить буквы 'р' на 'w' - Pascal ABC

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

Файл содержит буквы латинского алфавита. Заменить буквы 'р' на 'w'.

Решение задачи: «Файл содержит буквы латинского алфавита. Заменить буквы 'р' на 'w'»

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

program fileofchar;
 
var
  F: file of char;
  ch: char;
  i:integer;
begin
  assign(F, 'data.txt');
  reset(F);
  for i:=0 to filesize(f)-1 do
  begin
    seek(f,i);
    read(F, ch);
    if ch = 'p' then
      ch:='w';
    seek(f,i);
    write(F, ch);
  end;
  close(F);
  readln;
end.

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

В программе объявляются переменные F, ch и i.
Переменная F инициализируется значением 'data.txt'.
Переменная F сбрасывается в начало файла.
Запускается цикл for, который выполняется от 0 до filesize(f)-1.
Внутри цикла переменная seek(f,i) перемещает курсор в позицию i в файле.
Переменная read(F, ch) читает символ из файла и сохраняет его в переменной ch.
Если прочитанный символ равен 'p', то его значение заменяется на 'w'.
Переменная seek(f,i) перемещает курсор в позицию i в файле.
Переменная write(F, ch) записывает значение переменной ch в файл.
Цикл for завершается.
Файл закрывается с помощью функции close(F).
Вызывается функция readln().