Несовпадение типов

[ILOR]

в функцию массив одномерный передается
type arr_num=array[0..100] of integer;
a: arr_num;
k:=count_elmnt(a));
принимаю в модуле
type arr_num=array[0..100] of integer;
function count_elmnt(arr: arr_num): integer;
пишет несовпадение типов. Что делать?

[Arigato]

Тип type arr_num=array[0..100] of integer; должен быть описан 1 раз там, где он будет виден в нужных точках программы.

[ILOR]

Он прописан в модуле и в программе

[ILOR]

сам модуль

unit stack;

interface
uses SysUtils;
type arr_num=array[0..100] of integer;
function count_elmnt(arr: arr_num): integer;
implementation
function count_elmnt(arr: arr_num): integer;
var
i:integer;
flag: boolean;
begin
i:=0; flag:=false;
while (i<=255) and not flag do
begin
if length(intToStr(arr[i]))>0 then
inc(i)
else
flag:=true;
end;
count_elmnt:=i;
end;
end.

и программа

program test;

{$APPTYPE CONSOLE}

uses
SysUtils,
stack;
type arr_num=array[0..100] of integer;
var
a: array[0..100] of integer;
begin
writeln(count_elmnt(a));
readln;
end.

[Sm1Le]

Если я правильно вижу то последние "type ...." надо удалить потому как тип уже обьявлен выше ... Зачем два раза Обьявлять ?

[ILOR]

Все так и есть. Спасибо. Тема закрыта