Перелистывание страниц

program tabulF;
uses crt;
var
yg:integer;
x, a, b, dx, y: real;
l,r,esc:char;
begin
clrscr;
  write('Xn = ');
  readln(a);
  write('Xk = ');
  readln(b);
  write('dx = ');
  readln(dx);
  if a > b
    then begin
    x := a;
    a := b;
    b := x
    end;
  x := a;
  writeln('x start = ' , a);
  writeln('x end   = ' , b);
  writeln('step    = ' , dx);
  writeln;
  writeln('-------------------------------------------');
  writeln('       x          |           f(x)');
  writeln('-------------------------------------------');
  writeln;
  yg:=10;
  while x <= b do
    begin
      if (x < -3) or (abs(x) <= 1) or (x > 7)
        then y := 0
        else if x < -1
          then y := -1 - x
          else if x >= 5
            then y := (5 - x) / 2
            else y := sqrt(4 - sqr(x - 3));
//..................................................
            yg:=yg+1;
            if (yg>24) then begin {Достигли 24-й строки}
            yg:=24; GotoXY(1,25); writeln('Нажмите Enter'); 
            readln;
            while yg>=10 do begin {Стирание снизу-вверх}
            GotoXY(1,yg);
            yg:=yg-1;
end;
GotoXY(1,10);    yg:=10;
end;
//...............................................
      writeln('      ',x:5:3, '                  ', y:5:3);
      x := x + dx
    end;
  readln;
end.