Прочитать файл построчно и упорядочить все латинские буквы по возрастанию - PascalABC.NET

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

Нужно создать текстовый файл средствами редактора (т.е. в «Блокноте»). Прочитать этот файл построчно и упорядочить все латинские буквы по возрастанию, сохранив расположение остальных символов (например, строка ‘1c2a3b’ преобразуется в строку ‘1a2b3c’). Нужна помощь.

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

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

function f(s: string): string;
 
  function prev(i: integer): integer;
  begin
    while (i >= 1) and not (s[i] in ['a'.. 'z']) do dec(i);
    if i < 1 then Result := 0 else Result := i;
  end;
 
begin
  for var i := 1 to s.Length do
    for var j := s.Length downto i + 1 Do
    begin
      var prv := prev(j - 1);
      if prv = 0 then continue;
      if (s[j] in ['a'.. 'z']) and (s[prv] > s[j]) then Swap(s[prv], s[j]);
    end;
  result := s;
end;
 
begin
  WriteAllLines('text.txt',
    ReadAllLines('text.txt').Select(s -> f(s)).ToArray());
end.

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

В этом коде используется две функции:

Функция prev(i: integer): integer ищет предыдущий символ, который является латинской буквой, и возвращает его индекс. Если такого символа нет, то возвращается 0.
Функция f(s: string): string принимает строку s и возвращает отсортированную версию этой строки, где все латинские буквы упорядочены по возрастанию. В основном блоке кода происходит следующее:
Происходит итерация по каждому символу входной строки.
Для каждого символа происходит итерация по всем символам, начиная с текущего индекса и до конца строки.
Если текущий символ является латинской буквой и предыдущий символ, который является латинской буквой, больше текущего, то происходит обмен символов.
После завершения всех итераций, отсортированная строка выводится в файл 'text.txt'.