Turbo Pascal помогите пожалуйста. помогите пожалуйста с написание программы для вычисления 1-й и 2-й производной функции

В функцию f нужно вписать свою функцию!
Подразумевается, что в искомой точке функция непрерывна!
Чем меньше e, тем точнее вычисление:
const
e = 0.000001;

function f(x : real): real;
begin
f := cos(x);
end;

function proizvod1(x : real):real;
var
dx : real;
f1 : real;
f2 : real;
begin
dx := 0.01;
f1 := -10000000;
repeat
f2 := f1;
f1 := (f(x + dx) - f(x)) / dx;
dx := dx / 2;
until abs(f1 - f2) <= e;
proizvod1 := f1;
end;

function proizvod2(x : real):real;
var
dx : real;
f1 : real;
f2 : real;
begin
dx := 0.01;
f1 := -10000000;
repeat
f2 := f1;
f1 := (proizvod1(x + dx) - proizvod1(x)) / dx;
dx := dx / 2;
until abs(f1 - f2) <= e;
proizvod2 := f1;
end;

var
x : real;
fp1 : real;
fp2 : real;

begin
Write('x = '); ReadLn(x);
fp1 := proizvod1(x);
fp2 := proizvod2(x);

WriteLn;
WriteLn('f(', x:0:10, ') = ', f(x):0:10);
WriteLn('f'#39'(', x:0:10, ') = ', fp1:0:10);

WriteLn;
WriteLn('f'#39#39'(', x:0:10, ') = ', fp2:0:10);
end.

Никто этим не станет заниматься! Это над писать синтаксический разбор функции, выделять внутренние и внешние, потому что производная сложной функции вычисляется по-своему.. . Поэтому что-то вы задумали весьма геморройное...

ОЙ давно не заходила в паскаль, уже ничего не помню. извени))

А в паскале работал и язык немного изучал, но с этим что то туго