Сделать рамку вокруг окна из символов псевдографики - Turbo Pascal

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

Нужно в окне Windows(X, Y); по краям без отступом от краев сделать рамку из символов псевдографики. Когда доходит до последней строки и последнего символа, автоматически происходит переход на новую строку и все рамка сдвигается вверх. Как сделать чтобы этого не происходило?

Решение задачи: «Сделать рамку вокруг окна из символов псевдографики»

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

type
  TOneSymbol = packed record
    Symbol: char;
    Attribute: byte;
  end;
  TVideoBuffer = array[1..25, 1..80] of TOneSymbol;

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

В данном коде объявлен тип данных TOneSymbol, который представляет собой упакованный рекорд, состоящий из символа и байта атрибута. Затем объявлен массив TVideoBuffer, который представляет собой массив из 25 строк по 80 символов каждая, каждый символ представлен в виде рекорда TOneSymbol.