Непрерывное чтение вывода консоли - Free Pascal

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

Программе можно передать параметры через консоль при запуске, но можно ли считывать их оттуда уже после? Например: я запускаю скомпилированный exe-шник, открываю cmd.exe, ввожу там tree, и всё дерево построчно передаётся в мой алгоритм.

Решение задачи: «Непрерывное чтение вывода консоли»

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

var s: String;
begin
  Assign(output,'123.txt'); Rewrite(output);
  while not EOF do begin
    ReadLn(s); WriteLn(s);
  end;
  Close(output);
end.

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

Объявлена переменная s типа String.
Открывается файл 123.txt для записи (режим overwrite).
В цикле while с условием not EOF (конец файла) происходит чтение строки из файла в переменную s с помощью функции ReadLn.
Затем прочитанная строка выводится на экран с помощью функции WriteLn.
После окончания чтения файла закрывается файл 123.txt с помощью функции Close.