Проблема с Unit. Паскаль.

[DORINpwnz]

Паскаль./

Собственно, части кода юнита:

interface
type fun=function(x,y:real):real;

function f(x,y:real):real;
procedure koren(f:fun;A,B:real; var x:real);

implementation

function f;
   begin
      f:=x-y*sqrt(x+1);
   end;

procedure koren;
   var E:real;
   begin
      E:=0.00001;
      repeat
         x:=(A+B)/2;
         if f(x,y)*f(B,y)>0 then B:=x
                                   else A:=x;
      until abs(B-A)<E
   end.

При компиляции ошибка "Unknown identifier", выделил где.

Без использования модуля - всё отлично.
Уже 2 часа голову ломаю, в чем косяк ):
Заранее, спасибо за помощь.

[Greblin]

В процедуре koren не объявлена переменная y, о чём и говорит сообщение компилятора

[DORINpwnz]

В процедуре koren не объявлена переменная y, о чём и говорит сообщение компилятора

Без использования модуля всё отлично.
Если описывать данную переменную через var y:real - не правильно работает программа. Пробовал много раз.
Вообще, она является формальным параметром функции, которая, в свою очередь, является формальным параметром процедуры koren, поэтому это, собственно и не требуется, вроде бы =/

[Greblin]

procedure koren(f:fun;A,B:real; var x:real);

И где же в параметрах функции у Вас описана переменная y?

[DORINpwnz]

Ох.
Извините, мозг уже просто слегка кипит. Поэтому туплю.
/Часов 6 уже сижу за этим, 2 из которых парюсь над этой ошибкой../
Вообще там функция считается от (x,y), x задается в процедуре koren, второй фактический параметр - перед ней.
Куда мне тогда воткнуть то этот y?

Ох.
Всё, спасибо.
Сделал.
Действительно, нагрузка на мозг сказалась.

procedure koren(y:real; f:fun;A,B:real; var x:real);

в основном тексте программы просто опять же добавил этот параметр.
Почему то был уверен, что если он "описан" в функции, то тут уже не потребуется..

Greblin, Спасибо.