подкорректируйте програмку

[апрол]

Если не сложно подкорректируйте програмку

var    a,b,h,y,x:real;
function f(x:real):real;
begin
f:=3+2*ln(x);
end;
write('a='); readln(a);
 write('b='); readln(b);
   write('h='); readln(h);
x:=a;
while x<b do begin
if x>0 then begin
y:=f(x);
end;  writeln('y=', y)
x:=x+h;
end;
end;
end;
end.

[Викдон]

var    a,b,h,y,x:real;
   function f(x:real):real;
     begin
       f:=3+2*ln(x);
     end;
begin
write('a='); 
readln(a);
write('b='); 
readln(b);
write('h=');
 readln(h);

x:=a;

while x<b do 
begin
   if x>0 then 
      y:=f(x);
  writeln('y=', y);
x:=x+h;
end;
readln;
end.