Паскаль-программа.

[Rume]

Добрый вечер.
Надеюсь на вашу помощь с РГР, завтра уже показывать, у самого не выходит нечего( Блок схемы есть, а вот опыта в программировании нету...
вот само задание:
написать Текст процедуры ввода массива, процедуры табулирования, подпрограммы-функции, процедуры нахождения корня трансцендентного уравнения, текст процедуры ввода данных.

Табулируемая функция f(x, a, b)

tg(ax/b), при x<1
(sqrt(a^2 * x^4 + b^2))/x^3, иначе

Нелинейное уравнение:
Условие задачи:Вычислить первый положительный корень уравнения F(x)=0 с заданной погрешностью E(только прописная) (E=10^(-3) -:- 10^(-6)) на интервале [c, d]

e^cos(0.3x-0.2) - ln(x+2.2)

Изменяемые входные данные:
аргумент Х:
Xn, Dx, N
Параметр А:
An, Ak, Da - Начальное, конечное значения параметра А и шаг изменения

параметр b нужно вычислить через интеграл в промежутке от a до b f(x)dx
(x^2+x+2)^2 * cos(2x), где пределы интегрирования
a = 2,51
b=-0,69

вот я сам начал делать, и что-то никак...Это далеко не вся программа, а только ее часть:

Program RumeRgr7
 type
Ma=Array[1..20] of real;
My=Array[1..20,1..20] of real;
Mx=Array[1..20] of real;
Er1=Array[1..20] of boolean;
var
Xn, Xk, Dx:real;
a:ma;
I,J,K,N:Integer;
er:er1;
b:real;
Procedure DataIn(N: Integer; var A: ma);
var
I:Integer;
begin
writeln('Vvedite kol-vo elementov massiva');
for I:= 1 to N do
readln(A[I]);
End;
Procedure Tab (B, Xn,Xk, Dx:real; er:er1; a:ma;My:real);
Var
I,J:integer;
X,Y:real;
begin
J:=1;
begin
a:=Ma[J];
X:=Xn;
Er[J,I]:=0;
Else
End;
repeat
If X<1 then
Y:=(sin(ax/b))/(cos(ax/b))
else if x>0 then
y:=(sqrt(a*a*x*x*x*x+b*b))/(x*x*x)
else Er[J,I]:=1;
Mx[I]:=X;  My[J,I]:=Y;
I:=I+1;
X:=X+Dx;
until X>Xk;
end;
end;

Помогите исправить ошибки и, желательно дописать, заранее очень благодарен.

[Rume]

Блин, ну хотябы намекнуть как в паскале уравнение решить
Нелинейное уравнение:
Условие задачи:Вычислить первый положительный корень уравнения F(x)=0 с заданной погрешностью E(только прописная) (E=10^(-3) -:- 10^(-6)) на интервале [c, d]
с = 0
d = 9

e^cos(0.3x-0.2) - ln(x+2.2)