有事没事看看!!

本人用DELPHI这两天忽然遇到了一个问题,请帮我分析一下.
一个窗体,一个按钮,并声明了一个数组和一个函数:
type
   sz=array[1..7,1..7] of string;
function cs(l:sz):integer;
在按钮的CLICK中:
var
i,j:integer;
f:integer;
begin
      i:=1;
      j:=1;       
        for i:=1 to 7 do
           if (i>2)  and (i<6) then
              for j:=1 to 7 do
                a[i,j]:='T'
            ..............
 F:=CS(A);
            ..............
好象程序开始的赋值语句没执行??  不知WHY???
但程序运行开始时,i默认为1,WHY???
函数代码:
function TForm1.cs(l: sz): integer;
var
    m,n:integer;
    
begin    RESULT:=0;
     m:=1;
     n:=1;
      for m:=1 to 6 do
         for n:=1 to 6 do
         BEGIN
           ......
           RESULT:=RESULT+1;
在此函数中我想M,N从1开始循环,但我发现我写的赋值语句根本不执行,
而且我跟踪发现M,N是从6开始的,WHY???
 谁可以告诉我 这到底是WHY????