Вычислить и вывести на экран в виде таблицы значения сложной функции на заданном интервале

uses crt;
const l='--------------------------';
      s='|    X    |     F(x)     |';
var f,xn,xk,a,b,c,dx: real; n: byte;
begin
write('X нач.='); readln(xn);
write('X кон.='); readln(xk);
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('Шаг dx='); readln(dx);
clrscr;
writeln(l);
writeln(s);
writeln(l);
while xn<=xk do
      begin
      if (a<0) and (c<>0) then f:=a*sqr(xn)+(b*xn)+c else
         if (a>0) and (c=0) then f:=(-1)*a/xn-c else
            f:=a*(xn+c);
      writeln('|',xn:7:2,'|':3,f:12:2,'|':3);
      xn:=xn+dx;
      inc(n);
      if n mod 19=0 then
         begin
         writeln(l);
         writeln('Enter to continue...');
         readln();
         clrscr;
         writeln(l);
         writeln(s);
         writeln(l);
         end;
      end;
writeln(l);
readln;
end.