Составить функцию для приближенного вычисления lnx по формуле

uses crt;
const a:array[0..2] of real=(2,0.6664,0.4150);
var x,u,s:real;
    k:integer;
begin
textcolor(15);
clrscr;
repeat
write('0.5<=x<=1 x=');
readln(x);
until(x>=0.5)and(x<=1);
s:=-0.5*ln(2);
u:=1;
for k:=0 to 2 do
 begin
  u:=u*(2*x-sqrt(2))/(2*x+sqrt(2));
  s:=s+u*a[k];
 end;
writeln('S =',s:0:4);
writeln('Ln=',ln(x):0:4);
readln
end.

uses crt;
var f,g:file of real;
    a:real;
    n,i:integer;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел записать в файл n>0 n=');
readln(n);
writeln('Введите в файл ',n,' действительных чисел, в том числе ноли:');
for i:=1 to n do
 begin
  readln(a);
  write(f,a);
 end;
clrscr;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
  if a=0 then a:=1;
  write(g,a);
 end;
close(f);
writeln;
writeln;
writeln('Содержание нового файла:');
reset(g);
while not eof(g) do
 begin
  read(g,a);
  write(a:0:2,' ');
 end;
close(g);
readln
end.

uses crt;
type complex=record
             re,im:real;
             end;
 
procedure Mod_Arg(f:complex;var md,ar:real);
begin
md:=sqrt(sqr(f.re)+sqr(f.im));
ar:=arctan(f.im/f.re);
end;
 
var  a:complex;
     md,ar:real;
begin
clrscr;
writeln('Введите действительную и мнимую части числа a:');
readln(a.re,a.im);
Mod_Arg(a,md,ar);
writeln('Модуль  =',md:0:3);
writeln('Аргумент=',ar:0:3);
readln
end.

uses crt;
type complex=record
             re,im:real;
             end;
 
procedure Mod_Arg(f:complex;var md,ar:real);
begin
md:=sqrt(sqr(f.re)+sqr(f.im));
if(f.re=0)and(f.im=0) then ar:=0
else if(f.re=0)and(f.im<0)then ar:=3*pi/2
else if(f.re=0)and(f.im>0)then ar:=pi/2
else if f.re<0 then ar:=arctan(f.im/f.re)+pi
else if(f.re>0)and(f.im<0) then ar:=arctan(f.im/f.re)+2*pi
else ar:=arctan(f.im/f.re);
end;
 
var  a:complex;
     md,ar:real;
begin
clrscr;
writeln('Введите действительную и мнимую части числа a:');
readln(a.re,a.im);
Mod_Arg(a,md,ar);
writeln('Модуль  =',md:0:3);
writeln('Аргумент=',ar:0:3);
readln
end.