Изменить программу "Добавление префикса к каждому слову в файле"

var
F: textfile; // переменная текстового файла.
tmp: TStrings; // переменная класса TStrings - нужна для создания
// многострочного "редактора ввода" - так я его называю :)
i, j: integer; // переменная счетчика - для "прокрутки" строк.
l: integer; // для количества строчек в нашем редакторе.
tmp_str, s: string; // для считывания строки из файла.
begin
 
tmp:= TStringList.Create; // создали многострочный редактор ввода текста.
l:= 0; // количество считанных строчек.
 
AssignFile(F, 'Файл.txt'); // связали файл с файловой переменной.
Reset(F); // открыли файл на чтение.
while not eof(F) do   // Пока не дошли до конца файла...
begin
Readln(F, tmp_str);  // Читаем файл построчно
// и записываем каждую строчку в строку нашей переменной.
tmp.Add(tmp_str);
inc(l); // увеличили счетчик на 1.
end;
// закончили считывание файла.
CloseFile(F); // закрыли файл.
 
// теперь обрабатываем наш "редактор" - то есть считанный текст.
 
 
 
for i:= 0 to l - 1 do // от первой строки до последней делай.
begin
s:= ''; // очищаем строку для редактирования нашего текста.
tmp_str:= tmp[i]; // взяли отдельную строчку в редакторе.
for j:= 0 to length(tmp_str) - 1 do // от первого символа только что взятой строки делай.
begin
// заменили маленькую букву "а" на "б"
if (tmp_str[j] = 'а') then
tmp_str[j]:= 'б';
// заменили большую букву "А" на букву "Б"
if tmp_str[j] = 'А' then
tmp_str[j]:= 'Б';
 
s:= s + tmp_str[j]; // добавили к строке символ.
end;
tmp[i]:= s; // заменили строчку в редакторе.
end;
 
// обработали нащ редактор. Теперь надо его занести обратно в файл.
 
AssignFile(F, 'Файл.txt');  // связали файл с файловой переменной.
Rewrite(F); // открыли файл на перезапись.
for i:= 0 to l - 1 do  // от первой до последней строчк редактора делай.
begin
writeln(F, tmp[i]);  // записывай в файл F строку номер I.
end;
CloseFile(F);  // закрыли файл.
 
 
// радуйся жизни! :)))
 
 
end;

s := StringReplace(s, ' ', ' ак', [rfReplaceAll]);