Помогите с парой заданий по подпрограммам

[Eisebio]

1.Разработать подпрограмму и проект для тестирования подпрограммы.
Вводится строка.Вводится слово.Разработать собственную функцию POS.Определить сколько раз встречается заданное слово в исходной строке.
2.Разработать подпрограмму поиска корня уравнения f(x)=0 на отрезке [a,b],где функция меняет знак только 1 раз.С использованием этой функции произвести анализ скорости сходимости этих методов при различных значениях точности вычислений и при различных функциях f(x).Метод поиска корня : комбинированный метод хорд и касательных.Функции,для которых ищется точка пересечения с осью Х и отрезки,на которых производится поиск,придумайте сами.

[surovii]

могу помочь только вот этим

Блок нахождения корня функционального уравнения F(x) = 0

Function Cor( F: fun; a, b, E: tip): tip;
Var h,x: tip; k: integer;
begin h:= (b – a)/2; x:= a+h; If F(a) < 0 then h:= –h;
For k:= 0 to Trunc (Ln (Abs (a – b)/E )*1.4427) do
begin
h:= h/2;
If F(x) > 0 then x:= x+h else x:= x – h;
end;
Cor:= x
end;

Параметры a, b — границы области поиска корня, E — требуемая точ-ность. Функция F должна быть непрерывной и иметь разный знак в точках a, b. Найдем с точностью E = 0,001 корень z уравнения x = Sin (x+1) на отрезке [0, π]. Преобразуем уравнение: F(x) = x – Sin(x) = 0 и запишем вне обработчиков (выше них) описание функции F.
Function F (x: tip): tip;
begin F:= x – Sin (x) end;
Ниже, в обработчике запишем обращение к блоку Cor для получения z:
z:= Cor (F, 0, Pi, 0.001); // Порядок записи границ безразличен