Протабулировать функцию

const goriz = '+------------------------+------------------------+';
var x, xn, xk, dx, a, xi, y, min: double;
    fmin: boolean;
begin
  write('Xнач = ');
  readln(xn);
  write('Xкон = ');
  readln(xk);
  if xn > xk
    then begin
      x := xn;
      xn := xk;
      xk := x
    end;
  repeat
    write('|dX| > 0;  dX = ');
    readln(dx);
    if dx < 0 then dx := -dx
  until dx > 0;
  write('A = ');
  readln(a);
  write('Ksi = ');
  readln(xi);
  fmin := false;
  x := xn;
  writeln(goriz);
  writeln('|', 'x':12, ' ':12, '|', 'y':12, ' ':12, '|');
  writeln(goriz);
  while x < xk + dx / 2 do
    begin
      write('| ', x, ' | ');
      if (x = 0) or (xi <= 0)
        then write('Функция не определена':22)
        else begin
          y := exp(a * x) + sqrt(sqrt(abs(a * x + xi * xi * xi))) + ln(xi) / 2 / x;
          if not fmin or (y < min) then min := y;
          fmin := true;
          write(y)
        end;
      writeln(' |');
      x := x + dx
    end;
  writeln(goriz);
  if fmin
    then writeln('Минимальное значение: ', min)
    else writeln('Минимальное значение не найдено: на всём интервале функция не определена.');
  readln
end.