Протабулировать функцию на интервале с шагом Pascal(Паскаль)

    const a=1.5;
          b=12.5;
          h=0.75;
    var x,y:real;
    begin
    x:=a;
    while x<=b do
     begin
      y:=abs(sqrt(x)-exp(-x)/(0.01+x*x/4));
      writeln('x=',x:5:2,' y=',y:6:3);
      x:=x+h;
     end;
    end.