без юнита процедуры работают а с юнитом пишет "type mismatch"

[fawr]

вобщем прикол тут сделать юнит и подключить его, последовательности воодятся с файла одного и выводятся в другой ... без юнита процедуры работают а с юнитом пишет "type mismatch" -- помогите пожалуйста
program L8_18_1;
{dani dve poslodovatelbnosti 4isel ai i bi. Sformirovatb posledovatelbnosti
elementi kotorix vi4isl9uts9 po pravily ai=max(ai,bi); bi=min(ai,bi);
i=1,2,3... n} ----- условие
uses
crt,L8;
type
matr=array [1..100]of integer;
stroka=string[30];
var
filename:stroka;
a,b:matr;
i,n,x:integer;
begin
clrscr;
writeln('vvedite im9 fayla vvoda');
readln(filename);
vvod(a,b,n,filename);
zamena(a,b,n);
writeln('vvedite im9 fayla vivoda');
readln(filename);
vivod(a,b,n,filename);
readkey;
end.

unit L8;
interface
uses
crt;
type
matr=array [1..100]of integer;
stroka=string[30];
procedure vvod(var a,b:matr; var n:integer; var filename:stroka);
procedure zamena(var a,b:matr;var n:integer);
procedure vivod(var a,b:matr;var n:integer;var filename:stroka);
implementation
procedure vvod(var a,b:matr; var n:integer; var filename:stroka);
var
i:integer;
fin:text;
begin
assign(fin,filename+'.txt');
reset(fin);
readln(fin,n);
writeln('posledovatelbnostb a');
for i:=1 to n do
begin
read(fin,a[i]);
write(a[i]:4);
end;
readln;
writeln('posledovatelbnostb b');
for i:=1 to n do
begin
read(fin,b[i]);
write(b[i]:4);
end;
readln;
close(fin);
end;
procedure zamena(var a,b:matr;var n:integer);
var
i,x:integer;
begin
for i:= 1 to n do
if a[i]<b[i] then
begin
x:=a[i];
a[i]:=b[i];
b[i]:=x;
end;
end;
procedure vivod(var a,b:matr;var n:integer;var filename:stroka);
var
fout:text;
i:integer;
begin
assign(fout,filename+'.txt');
rewrite(fout);
for i:=1 to n do
begin
write(fout,a[i]:4);
write(a[i]:4);
end;
writeln(fout);
writeln;
for i:=1 to n do
begin
write(fout,b[i]:4);
write(b[i]:4);
end;
close(fout);
end;
end.

[ИринаForeve]

Убери типы из основной программы, будет работать.