Ошибка с передачей массивов Types of actual and formal var parameters must be identical

[Григоренко Степан]

Здравия желаю.
Пишу прогу, надо передать массив из процедуры, 2 разных юнита. Возникает ошибка, указанная в заголовке. Десять раз сверил типы. Несмотря на гугление и пользование поиском, ответа не нашел.

Главный юнит:

unit Main;

interface

implementation

uses
  SysUtils, Input, Procedures;

type
  Massiv1 = array of array of Integer;
  Massiv2 = array of Integer;

procedure MaxNumberColInArray(FileName: String; var Number: Integer);
var
  Matrix: Massiv1;
  M, N: Integer;
  NumArr: Massiv2;
  I, J: Integer;
begin
  Input.ReadMatrix(FileName, Matrix, M, N);

  SetLength(NumArr, 10);
  for I := 0 to 9 do
    NumArr[I] := 0;

  for I := 0 to M - 1 do
    for J := 0 to N - 1 do
      Procedures.CountNumbers(NumArr, Matrix[I, J]);

  Procedures.NumberOfMaxElement(NumArr, Number); Тут оно вообще выдает Incompatible types: 'Procedures.Massiv2' and 'Main.Massiv2'
end;

end.

Юнит с первой процедурой:

unit Input;

interface

type
  Massiv1 = array of array of Integer;

procedure ReadMatrix(FileName: String; var Matrix: Massiv1; var M, N: Integer);

implementation

procedure ReadMatrix(FileName: String; var Matrix: Massiv1; var M, N: Integer);
var
  F: TextFile;
  I, J: Integer;
begin
  AssignFile(F, FileName);
  Reset(F);

  Readln(F, M);
  Readln(F, N);

  SetLength(Matrix, M, N);

  for I := 0 to M - 1 do
  begin
    for J := 0 to N - 2 do
      Read(F, Matrix[I, J]);
    Readln(F, Matrix[I, J]);
  end;

  CloseFile(F);
end;

end.

Юнит с еще двумя:

unit Procedures;

interface

type
  Massiv2 = array of Integer;

procedure CountNumbers(var NumArr: Massiv2; NowNumber: Integer);
procedure NumberOfMaxElement(NumArr: Massiv2; var Number: Integer);

implementation

procedure CountNumbers(var NumArr: Massiv2; NowNumber: Integer);
var
  K, I: Integer;
begin
  while NowNumber > 0 do
  begin
    I := NowNumber mod 10;
    Inc(NumArr[I]);
    NowNumber := NowNumber div 10;
  end;
end;

procedure NumberOfMaxElement(NumArr: Massiv2; var Number: Integer);
var
  K: Integer;
begin
  K := 0;
  Number := 0;

  while K <= 9 do
    if NumArr[K] > NumArr[Number] then
      Number := K;
end;

end.

С выносом процедур в другие юниты столкнулся первый раз, поэтому найти ошибку не могу

[evg_m]

unit Main;

interface

implementation

uses
  SysUtils, Input, Procedures;

type
  Massiv1 = array of array of Integer;

Выделенное убрать
обявление типа должно быть одно! (в даном случае в unit Input)

аналогичное требование (единственность объявления) и для второго объявления
massiv2: array of integer

дважды объявив типы вы сделали ДВА разных(!) типа.
внешне(для человека) они похожы, но не для компилятора!

[Григоренко Степан]

Спасибо огромное, заработало!