Массив, процедура и модуль, Помогите избавиться от ошибки 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.

[Юрий]

там должна стоять точка с запятой, а не запятая. Это первое.

Невнимательность, спасибо.

Ну, и третье - вот я не понимаю, зачем передавать в процедуру параметр, который не будет внутри нее использоваться? Опиши K, как локальную переменную, и пусть процедура принимает только один параметр - саму матрицу.

Это я и начал пытаться делать в первом листинге

Второе. Ты и в модуле и в основной программе описываешь тип matr. Зачем? Проблемы нужны? Вот ты их и получил: тот тип matr, что описан в модуле, и тот, что описан в основной программе - РАЗНЫЕ типы, хотя и очень похожи. Они несовместимы, и пока ты не уберешь описание типа matr из основной программы, программа компилироваться не будет.

Вот это и была моя главная ошибка, на которую убил целый день. Огромное спасибо за помощь!