Переделать программу чтоб в ней были процедуры и функции

program pr5;
uses crt;
var
i,k,n,m,z:integer;
e,a,x,b,a1,sum,expx:real;
begin
clrscr;
writeln('vvedite x (|x|<1)');
readln(x);
n:=0; expx:=x*x*x; k:=0; m:=0; a:=10;  e:=0.000001;
sum:=x;
while a>e do
begin
n:=n+1;
k:=k+(2*n-1);
m:=m+(2*n)*(2*n+1);
if n mod 2=0 then z:=-1
             else z:=1;
expx:=expx*sqr(x);
a:=((k*expx)/m)*z;
sum:=sum+a;
end;
   a1:= ln(x+sqrt(sqr(x)+1));
writeln ('sum = ', sum, '=', a1);
readln;
end.

program pr5;
uses crt;
const e=0.000001;
function F(x:real):real;
var n,z:integer;
    expx,k,m,a,sum:real;
begin
n:=0;
expx:=x*x*x;
k:=0;
m:=0;
a:=10;
sum:=x;
while a>e do
 begin
  n:=n+1;
  k:=k+(2*n-1);
  m:=m+(2*n)*(2*n+1);
  if n mod 2=0 then z:=-1 else z:=1;
  expx:=expx*sqr(x);
  a:=((k*expx)/m)*z;
  sum:=sum+a;
 end;
F:=sum
end;
var x,a1:real;
begin
clrscr;
writeln('vvedite x (|x|<1)');
readln(x);
a1:= ln(x+sqrt(sqr(x)+1));
writeln ('sum = ',F(x):0:7,'=',a1:0:7);
readln;
end.