Удаление определенных строк из текста - PascalABC.NET

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

Помогите, после ввода текста в консоли, нужно удалить часть текста clrscr удаляет весь текст, а мне нужно оставить первые две строки, как это сделать?

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

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

  for i := 25 downto 3 do
  begin
    GotoXY(1, i);
    ClearLine;
  end;

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

В данном коде выполняется удаление определенного количества строк из текста. Список действий:

Задается начальное значение переменной i равное 25.
Устанавливается условие цикла for на выполнение до тех пор, пока значение переменной i больше или равно 3.
В каждой итерации цикла происходит переход каретки в начало строки с помощью функции GotoXY(1, i).
Используя функцию ClearLine, удаляется содержимое текущей строки.
Значение переменной i уменьшается на единицу с помощью операции downto.
Цикл продолжается до тех пор, пока значение переменной i не станет меньше 3.