Объединить программы для задания 1 и задания 2 в одну

Program RASSCHET;
  uses CRT;
  var eps, x, a, b:real;
  function f(x:real):real;
begin
  f := 0.25*exp(ln(x)*3)+x-1.2502 ;
end;
  function fp(x:real):real;
begin
  fp:=3-4/x;
end;
begin
  clrscr;
  write('Vvedite pogreshnost eps = ');
  ReadLn(eps);
  If (eps>0) and (eps<1) then
    begin
      a := 0.1;
        repeat
        x:=a-f(a)/fp(a);
        b:=a;
        a:=x;
        WriteLn('x = ',b:5:7);
      until abs(x-b)<=eps;
        WriteLn('Koren uravnenija 3*x - 4*ln(x) - 5 = 0  x = ',x:5:7);
    end
  else
    WriteLn('Nekorrektnie dannie');
  ReadLn;
End.

uses crt;
function f(x:real):real;
begin
f:=0.25*x*x*x+x-1.2502;
end;
function fp(x:real):real;
begin
fp:=0.5*x*x+1;
end;
 
procedure Newton;
var x1,x2,eps:real;
begin
clrscr;
repeat
write('Введите начальное приближение x1=[0.5..1.5] x1=');
readln(x1);
until (x1>=0.5)and(x1<=1.5);
repeat
write('Введите погрешность (0;1) eps=');
readln(eps);
until(eps>0)and(eps<1);
repeat
x2:=x1;
x1:=x1-f(x1)/fp(x1);
until abs(x2-x1)>eps;
writeln('x=',x1:0:4);
readln
end;
function y(x:real):real;
begin
y:=-ln(abs(2*sin(x/2)))
end;
function summa(x,eps:real):real;
var s,t:real;
    n:integer;
begin
t:=x;
n:=1;
s:=cos(t);
while abs(cos(t)/n)>eps do
 begin
  n:=n+1;
  t:=t+x;
  s:=s+cos(t)/n
 end;
summa:=s
end;
procedure tab;
var a,b,eps,x,dx:real;
    n:integer;
begin
clrscr;
a:=pi/5;
b:=9*pi/5;
repeat
write('Количество точек не менее 10 n=');
readln(n);
until n>9;
dx:=(b-a)/(n-1);
repeat
write('Введите точность (0;1) eps=');
readln(eps);
until(eps>0)and(eps<1);
x:=a;
while x<=b+dx/2 do
 begin
  writeln('x=',x:5:2,'  S=',summa(x,eps):9:5,' y=',y(x):9:5);
  x:=x+dx
 end;
readln
end;
 
var k:char;
begin
clrscr;
repeat
clrscr;
writeln('Выберите действие');
writeln('1-задача 1');
writeln('2-задача 2');
writeln('другое выход');
readln(k);
case k of
'1':newton;
'2':tab;
else exit;
end;
until not(k in ['1'..'2'])
end.
Newton;
readln
end.