Выровнять текст по центру, добавив в начало каждой непустой строки нужное количество пробелов - PascalABC.NET

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

Дан текстовый файл, содержащий текст, выровненный по левому краю. Выровнять текст по центру, добавив в начало каждой непустой строки нужное количество пробелов (ширину текста считать равной*50). Строки нечетной длины перед центрированием дополнять слева пробелом.

Решение задачи: «Выровнять текст по центру, добавив в начало каждой непустой строки нужное количество пробелов»

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

const
  fIn  = 'input.txt';
  fOut = 'output.txt';
  LengthStr = 50;
begin
  Output := OpenWrite(fOut);
  foreach var S : String in ReadLines(fIn) do
    begin
      var t := S.Trim(#32);
      if (t.Length > 0) and (t.Length < LengthStr) then
        t := t.PadLeft(LengthStr - t.Length div 2 + t.Length);
      WriteLn(t);
    end;
end.

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

Объявляются константы: fIn - 'input.txt' fOut - 'output.txt' LengthStr - 50
Открывается файл fOut для записи
Происходит итерация по каждой строке в файле fIn: а) переменная t получает значение текущей строки, приведенное к строке без пробелов б) проверяется, что строка не пустая и длина строки меньше 50 символов в) если условия выполняются, то к строке добавляются пробелы до выравнивания длины строки по центру г) выводится отцентрированная строка
Закрывается файл fOut
Код завершается