Упорядочивание выводимого текста.

[Natalia86]

Ребята очень прошу вас помочь мне, в институте нам задали задание, решить формулу в паскале, я всё это сделала, но есть проблема, ответы выводятся на экран в 1 столбик и они не помещаются полностью в экран, нужно скроллировать. Помоте пожалуйсто сделать чтобы на экране были видны все ответы в столбике, при необходимости использовать несколько столбиков.

код программы следующий:

PROGRAM PIRMAIS;
USES CRT;
VAR I: INTEGER;
Y, X: REAL;

BEGIN
CLRSCR;
FOR I:= -30 TO 30 DO BEGIN
X:= (I/10);
IF (X=1) OR (X=(-1)) THEN WRITELN (X :0:1, ' NAV')
ELSE Y:= (5*X)/(X*X*X*X - 3*X*X +2);
WRITELN (X :0:1,' ', Y:0:3);
END;
READKEY;
END.

Пожалуйсто, это очень срочно, очень вас прошу о помощи и заранее благодарна вам!

[JTG]

PROGRAM PIRMAIS;
USES CRT;
VAR I,cx,cy: INTEGER;
Y, X: REAL;

BEGIN
  CLRSCR;
  cx:=1; cy:=1;
  FOR I:= -30 TO 30 DO 
  BEGIN
    gotoXY(cx,cy);

    X:= (I/10);
    IF (X=1) OR (X=(-1)) THEN WRITELN (X :5:1, ' NAV')
                         ELSE Y:= (5*X)/(X*X*X*X - 3*X*X +2);
    WRITElN (X :5:1,' ', Y:5:3);

    inc(cy);
    if cy>20 then 
    begin
      cy:=1;
      inc(cx,15);
    end;
  END;
  READKEY;
END.