FreePascal.ru

решение не очень красивое, но рабочее. найдено здесь: https://wiki.freepascal.org/Executing_External_Programs#TProcess
в соответствующие места программы следует вставить:

uses
process;
var
reset_process: TProcess;
begin
reset_process := TProcess.Create(nil);
reset ...

Вы хотели сказать TextColor(Grey)? Дело в том, что такое решение мне не нравится, т.к. не учитывает характеристики терминала пользователя (ведь это может быть любой другой цвет фона и текста).

имеем: дефолтные характеристики терминала (Linux Mint): черный фон и серый шрифт. После запуска программы под fpc (+ модуль crt) с использованием TextColor(Red) и TextBackground (White) и выхода из программы, терминал имеет красный шрифт и белый фон. Что сделать, чтобы восстановить характеристики ...