Тема:динамический массив, выскакивает ошибка

[Fonarik]

Задача стояла такая:
Проверить одномерный массив символов, какая наиболее чаще встречается цифра и вывести ее.

Программа то работает, но выдает вот такую ошибку

type
tmas=array[1..1] of char;
atn=^tmas;
var
  Form1: TForm1;
  M:atn;      // задаем динамический массив
  n,i:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
n:=5;  edit1.Text:=inttostr(n);
stringgrid1.ColCount:=n;
randomize;
for i:=0 to n-1 do      // заполняем случайными символами Stringgrid1
stringgrid1.Cells[i,0]:=char(random(256));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(edit1.text);  // изменение размерности массива
stringgrid1.colcount:=n;
randomize;
for i:=0 to n-1 do
stringgrid1.Cells[i,0]:=char(random(256));
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
   var j,kol,k,w:integer;
       c:char;
    begin
getmem(M,n*sizeof(char));        // выделяем память
for i:=0 to n-1 do
   M[i]:=stringgrid1.Cells[i,0][1]; // присваеваем значения из stringgrid1

w:=0;
for i:=0 to n-1 do            // проверяем массив на цифры
 if (m[i]>='0') and (m[i]<='9') // другое возможное условие: in ['0'..'9']
   then begin
        k:=0;
        for j:=0 to n-1 do     // вычисляем количество повторяющихся цифр
            if M[j]=M[i] then inc(k);
        if w=0 then begin c:=M[i];  kol:=k; w:=1; end
               else if k>kol then begin c:=M[i];  kol:=k;  end;
        end;
 if w=0 then label2.Caption:='В массиве нету цифр'
        else label2.Caption:='В массиве чаще всего встречается цифра "' +c+'"';
        freemem(M,n*sizeof(char));   // освобождаем память

end;
end.

Но вот если освобождение памяти происходит через setlength, то все работает без ошибок:

var
  Form1: TForm1;
  M:array of char;      // задаем динамический массив
  n,i:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
n:=5;  edit1.Text:=inttostr(n);
stringgrid1.ColCount:=n;
randomize;
for i:=0 to n-1 do      // заполняем случайными символами Stringgrid1
stringgrid1.Cells[i,0]:=char(random(256));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(edit1.text);  // изменение размерности массива
stringgrid1.colcount:=n;
randomize;
for i:=0 to n-1 do
stringgrid1.Cells[i,0]:=char(random(256));
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
   var j,kol,k,w:integer;
       c:char;
begin
setlength(M,n);        // освобождаем память
for i:=0 to n-1 do
   M[i]:=stringgrid1.Cells[i,0][1]; // присваеваем значения из stringgrid1

w:=0;
for i:=0 to n-1 do            // проверяем массив на цифры
 if (m[i]>='0') and (m[i]<='9') // другое возможное условие: in ['0'..'9']
   then begin
        k:=0;
        for j:=0 to n-1 do     // вычисляем количество повторяющихся цифр
            if M[j]=M[i] then inc(k);
        if w=0 then begin c:=M[i];  kol:=k; w:=1; end
               else if k>kol then begin c:=M[i];  kol:=k;  end;
        end;
 if w=0 then label2.Caption:='В массиве нету цифр'
        else label2.Caption:='В массиве чаще всего встречается цифры "' +c+'"';
        m:=nil;   // освобождаем память

end;

end.

Прошу помощи, т.к. уже не знаю что делать.

[Ламер_001]

в моем понимании динамический массив это некий стек (или очередь) а не array указателей

[Fonarik]

препод требует через указатель, а причину ошибки не указывает =(

[Ламер_001]

правильно. но в динамике используется для хранения 1 (или 2) указателя. почитай в инете про стеки, очереди и графы.

[Fonarik]

и все равно не понятно, почему выскакивает ошибка, как ее избежать, кто поможет?