Написать программу табулирования сложной функции

Program mid;
const e=0.0010;
function F(x:real):real;
var n:integer;
    s,f,p,v:real;
begin
if x<0.5 then
 begin
  s:=0;
  f:=(sqr(x)+3*x+n)/(5*x+1);
  n:=0;
    Repeat
     v:=(sqr(x)*n)/(4*n+1);
     s:=s+v;
     n:=n+1
    Until abs(v)<e;
  F:=f*s;
 end
else
 begin
  s:=0;
  p:=1;
  for n:=1 to 10 do
   begin
    p:=p*x;
    s:=s+p/n
   end;
  F:=s*x/3
 end
end;
var a,b,h,x,y:real;
    k:integer;
begin
write(x);read(x);
y:=F(x);
a:=0.1;
b:=0.15;
h:=1.6;
x:=a;
while x<=b do
 begin
  writeln('x=',x:4:1,' y=',y:8:3);
  x:=x+h
 end;
readln
end.

begin
//write(x);read(x);
y:=F(x);
a:=0.1;
h:=0.15;
b:=1.6;
x:=a;
while x<=b do
 begin
  writeln('x=',x:4:1,' y=', f(x):8:3);
  x:=x+h
 end;
//readln
end.

 end;
 Result := f;
end;

const eps = 1e-4;
 
function s(x : Real; n : Integer) := x**(2*n)/(4*n + 1);
 
function f(x : Real) : Real;
begin
  if x < 0.5 then
    Result := (x*x + 3*x + 4) / (5*x + 1) * SeqWhile(0,n->n+1,n->s(x,n)>eps).Sum(n->s(x,n))
  else
    Result := x / 3 * Range(1,10).Sum(n -> x**n/n);
end;
 
begin
  SeqWhile(0.1,x->x+0.15,x->x<=1.6).Select(x->Format('Y({0,4:f2}) = {1}', x, f(x))).PrintLines;
end.