Метод хорд

[gnom 62]

исправьте мне программу
я решил задачу методом хорд

Program Horda;
Uses Crt;
Var
a,c,d,b,x,eps:real;
n:integer;
Function f(x,c,d:real):real;
begin
f:=exp(x*c)-ln(x)+x-d ;
end;

Begin
ClrScr;
Writeln('введите коэфициенты);
writeln('значение коэфициентов a и b');
readln(a,b);
writeLn('введите погрешность eps=');
readln(eps);
c:=a;d:=b;
n:=0;
Repeat
x:=a-f(a,c,d)*(b-a)/(f(b,c,d)-f(a,c,d));
if f(a,c,d)*f(x,c,d)<=0 then b:=x
else a:=x;
Inc(n);
Until abs(f(x,c,d))<=eps;
Writeln('корень x = ', x:10:9);
writeln('число интераций = ',n:2);
READLN
End.

НО преподаватель сказал что должно быть сделано через процедуру и коэффициенты должны быть записаны через массив:confused :

вы моя последняя надежда

сами исходные данные
exp(x*a)-ln(x)+x-b где а=0.5 b=4 погрешность 0.0001