Вывести значение функции на отрезке от a до b с шагом

Var 
   a, b, d, y, x, x0: real;
begin 
   writeln('Пожалуйста, введите границы отрезка: '); 
   readln(a, b); 
   writeln('Пожалуйста, введите шаг: '); 
   readln(d); 
   y := sqr(x) + 1 / (x - 4); 
   x0 := a; 
   while (x0 lt;= b) do  
   begin   
      if ((x0 - 4) = 0) then writeln('Возникло разделение на ноль!') else      
         writeln('Значение функции f(x) в точке x0 = ', x0, ' = ', sqr(x0) + 1 / (x0 - 4));   
      x0 := x0 + d; 
   end;
   readln;
end.