简单题，大侠救命 (0分)

function TFrmMain.FileExt(fielExt:string):integer;
type
strArr=array[1..30] of string;
var a:strArr;
i:integer;
begin
a[1]:='.jpg'; // A为图象文件
a[2]:='.gif';
a[3]:='.bmp';
a[4]:='.ico';
a[5]:='.wmf';
a[6]:='.amf';
.........
a[24]:='.gsp';
a[25]:='.gss';
a[26]:='.bat';
for i:=1 to 30 do
if fileExt=a then
begin
result:=i;
break;
end;
result:=31;
end;

fielExt在function单元已经声明了，但为什么调试的时候不能通过呢？
提示变量没有申明！！晕死！我好菜啊，程序快写完，救救我啊～～～
没有分啦，早上就用光了55555

var
a:strArr;
i:integer;
strArr=array[1..30] of string;

越发不懂了，我在function(_)括号里面声明了fileExt
为什么不能在函数中调用呢？
重新声明一次也不提示有问题
但调用肯定出错；

接受答案了.

听课。