Вывести на экран значения функции в виде таблицы.y=ln(x+5) — Pascal(Паскаль)

uses crt;
var x,y,dx,a,b:real;
 
begin
 clrscr;
 write('Начальное и конечное значение (A>B)-> ');
 readln(a,b);
 write('Шаг (>0) -> ');
 readln(dx);
 x:=a;
 writeln('==X======Y==')
 while x<=b do
 begin
  if x>-5 then
  begin
  y:=ln(x+5);
  writeln(x:2:3,' ',y:2:3);
  end else writeln(x:2:3,'   нет значения');
  x:=x+dx;
 end;
 readln;
end.