Массив, процедура и модуль, Помогите избавиться от ошибки 26 Опции

[Юрий]

Помогите, пожалуйста, найти ошибку, голову сломал:
Есть процедура, в которой в качестве параметра используется массив. Все работает:

Type matr=array [1..2,1..10] of real;
Var P:matr;
...
Procedure FN (Var P:matr; k:integer);
Begin
  For k:=1 to 10 do
    if P[1,k]<0 then
     begin
      P[1,k]:=0;
      P[2,k]:=P[2,k]+R
     end
end;
...
Begin
...

 if R0<R then FN(P,J);

Но если выношу процедуру в отдельный модуль, то при точно таком же вызове процедуры после FN(P, компилятор дает ошибку 26. Что делаю не так? Пробовал в описании процедуры убирать Var, не помогло.

Unit Dva;
 Interface
   Type matr=array [1..2,1..10] of real;
   Var P:matr;

       R:real;

   Procedure FN (Var P:matr);

 Implementation
  Procedure FN;
   var
    k:integer;
    Begin
      For k:=1 to 10 do
        if P[1,k]<0 then
          begin
            P[1,k]:=0;
            P[2,k]:=P[2,k]+R
          end;
    end;
  end.