Мерцание при обновлении экрана в модуле crt - Free Pascal

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

Здравствуйте, я столкнулся с проблемой. Я решил сделать ascii-скроллер в консоли при помощи модуля crt. Но вот проблема - практически все мерцает. Что с этим можно сделать? Пытался увеличивать задержку, но это не помогает.

Решение задачи: «Мерцание при обновлении экрана в модуле crt»

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

program TestWinAPI;
 
uses
  Windows;
 
var
  hConsoleOutput: HANDLE; {A handle to the console screen buffer.}
  hConsoleInput:  HANDLE; {A handle to the console screen buffer.}
 
  function InitConsole: boolean;
  begin
    hConsoleOutput := GetStdHandle(STD_OUTPUT_HANDLE);
    hConsoleInput := GetStdHandle(STD_INPUT_HANDLE);
    //    ScreenBuffer :=GetConsoleScreenBuffer
    InitConsole := (hConsoleOutput <> INVALID_HANDLE_VALUE) and
      (hConsoleInput <> INVALID_HANDLE_VALUE);
  end;
 
  function GoToXY(X, Y: SHORT): boolean;
  var
    dwCursorPosition: COORD;
  begin
    dwCursorPosition.X := X;
    dwCursorPosition.Y := Y;
    GoToXY := SetConsoleCursorPosition(hConsoleOutput, dwCursorPosition);
  end;
 
begin
  InitConsole;
  GoToXY(5, 5);
  writeln('text 5 5');
  GoToXY(15, 15);
  writeln('text 15 15');
  readln;
end.

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

Объявлены две переменные: — hConsoleOutput типа HANDLE, который является дескриптором консоли вывода, — hConsoleInput типа HANDLE, который является дескриптором консоли ввода. Примечание: Переменные hConsoleOutput и hConsoleInput используются для взаимодействия с консолью ввода/вывода.
Определена функция InitConsole, которая инициализирует дескрипторы hConsoleOutput и hConsoleInput. Функция возвращает логическое значение True, если дескрипторы были успешно получены, и False в противном случае. Примечание: Функция InitConsole инициализирует консоль, проверяя, является ли дескриптор hConsoleOutput и hConsoleInput валидными. Если они не являются валидными, функция возвращает False.
Определена функция GoToXY, которая принимает два целых параметра типа SHORT: X и Y. Функция использует дескриптор hConsoleOutput для установки позиции курсора в консоли. Возвращаемое значение функции - логическое значение True, если позиция курсора была успешно установлена, и False в противном случае. Примечание: Функция GoToXY используется для перемещения курсора в консоли на координаты X и Y. Если позиция курсора не может быть установлена, функция возвращает False.
В основной части программы функция InitConsole вызывается для инициализации консоли. Затем функция GoToXY вызывается дважды: сначала для перемещения курсора на координаты (5, 5), а затем для перемещения курсора на координаты (15, 15). После этого вызывается функция readln для чтения ввода пользователя. Примечание: В основной части программы используются функции InitConsole и GoToXY для инициализации консоли и перемещения курсора на определенные координаты. Затем вызывается функция readln для чтения ввода пользователя.