Нужно просто использовать GetConsoleScreenBufferInfo() для ввода нескольких пустых строк.
programProject1; {$APPTYPE CONSOLE} uses
Windows;
{$R *.RES} varsbi: TConsoleScreenBufferInfo; i: integer; begin
Writeln('A Console Applicaiton'); Writeln('Press Enter To Clear The Screen'); GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), sbi); Readln; GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), sbi); for
i := 0 to
sbi.dwSize.y do
writeln; Writeln('Press Enter To End'); Readln; end
.