Функция ClrScr - PascalABC.NET

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

Можно ли с помощью функции ClrScr стереть часть записей а не всё?

Решение задачи: «Функция ClrScr»

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

uses crt;
var i:byte;
    s:string;
begin
clrscr;
for i:=1 to 6 do
readln(s);
readln;
for i:=25 downto 3 do
 begin
  gotoXY(1,i);
  clearline;
 end;
readln
end.

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

Список действий в данном коде:

Используется библиотека CRT (crt).
Объявляются три переменные: i типа byte, s типа string.
Выполняется функция clrscr, которая очищает экран.
Запускается цикл for от 1 до 6, в котором с помощью функции readln считывается 6 строк текста.
Запускается второй цикл for от 25 до 3, в котором с помощью функции gotoxy перемещается курсор на строку и на экран выводится символ пробела (clearline).
Завершает работу функция readln.