Для каждой строки исходного файла определить номер строки и количество срок в ней - PascalABC.NET

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

Для каждой строки исходного файла определить номер строки и количество срок в ней

Решение задачи: «Для каждой строки исходного файла определить номер строки и количество срок в ней»

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

begin
  var S := ReadAllLines(ReadLnString('Имя исходного файла:'));
  WriteLn('Количество строк: ', S.Count);
  var i := 0;
  foreach var SS in S do
    begin
      i += 1;
      WriteLn(i, ' : ', SS);
    end;
  WriteLn('Готово!');
end.

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

Пользователю предлагается ввести имя исходного файла.
Файл считывается в строку S.
Выводится количество строк в списке S.
Инициализируется счетчик i = 0.
В цикле foreach перебираются все строки SS в списке S.
К счетчику i прибавляется 1.
Выводится значение i и строка SS.
После завершения цикла выводится сообщение Готово!.