Что делать, если значения не помещаются на экран? - Turbo Pascal

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

Что делать если значения не помещаются на екран ? Можно как-то сделать страницы?

Решение задачи: «Что делать, если значения не помещаются на экран?»

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

program TabulaRasa;
uses crt;
var xmax,xmin,y,x,kr:real;
    k:integer;
begin
clrscr;
xmin:=0;
xmax:=6;
kr:=0.06;
x:=xmin;
k:=0;
while x<xmax+kr/2 do
 begin
  y:=x*exp(arctan(x))*(x/(1+sqr(x)));
  writeln('X',x:6:3, '         Y',y:6:3);
  inc(k);
  if k mod (Hi(windmax))=0 then{чтоб не зависеть от высоты окна}
   begin
    write('Нажмите Enter для дальнейшего просмотра');
    readln;
   end;
  x:=x+kr;
end;
write('Нажмите Enter для выхода');
readln;
end.

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

Создается программа TabulaRasa, которая использует библиотеку crt.
Объявляются переменные: xmin, xmax, y, x, kr, k.
Устанавливаются начальные значения переменных: xmin, xmax, y, x, kr, k.
Запускается цикл while, который выполняется до тех пор, пока значение x не станет больше xmax плюс kr/2.
Внутри цикла вычисляется значение y по формуле y = x exp(arctan(x)) (x/(1+sqr(x))).
Выводится строка с значениями x и y.
Увеличивается значение k на единицу.
Проверяется, делится ли значение k на максимальное значение высоты окна (Hi(windmax)). Если да, то выводится сообщение Нажмите Enter для дальнейшего просмотра.
Чтение символа Enter с помощью функции readln.
Значение x увеличивается на kr.
Цикл while заканчивается, если значение x становится больше xmax плюс kr/2.
Выводится сообщение Нажмите Enter для выхода.
Программа завершается, и пользователь может выйти из программы, нажав Enter.