Переписать строки исходного файла в новый файл, укоротив, длинные строки до 20 символов - PascalABC.NET

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

Переписать строки исходного файла в новый файл, укоротив, длинные строки до 20 символов

Решение задачи: «Переписать строки исходного файла в новый файл, укоротив, длинные строки до 20 символов»

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

begin
  var S := ReadAllLines(ReadLnString('Имя исходного файла:'));
  for var i := 0 to S.Count - 1 do
    if S[i].Length > 20 then
      Delete(S[i], 21, S[i].Length - 20);
  WriteAllLines(ReadLnString('   Имя нового файла:'), S);
  WriteLn('Готово!');
end.

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

Программа запрашивает у пользователя имя исходного файла и записывает его в переменную S.
Затем происходит цикл по всем строкам исходного файла.
Если длина строки больше 20 символов, то программа укорачивает её до 20 символов, удаляя лишние символы с конца строки.
Укороченные строки записываются в новый файл, имя которого также запрашивается у пользователя.
После завершения работы программы выводится сообщение Готово!.