ошибка в поразрядной сортировке

[Karina89]

Здравствуйте))
имеется код программы на поразрядную сортировку (целые числа).
Выглядит так:

const D=3;   {  максимальное количество цифp в числе }
      P=10;   { основание системы счисления }

 Function Digit(v, n : integer) : integer;
 { возвpащает значение n-ой цифpы в числе v }
 begin
   for n:=n downto 2 do v:=v div P;
   Digit:=v mod P;
 end;

 Procedure SortPor(var a : mytp);
   Var c : array[0..P-2] of integer; { индекс элемента,
                          следyющего за последним в i-ой гpyппе  }
       i, j, k, m, x : integer;
   begin
     for m:=1 to D do begin   { пеpебоp цифp, начиная с младшей }
     for i:=0 to P-2 do c[i]:=1; { нач. значения индексов }
     for i:=1 to l do begin   { пеpебоp массива }
       k:=Digit(a[i],m);      { опpеделение m-ой цифpы }
       x:=a[i];
       { сдвиг - освобождение места в конце k-ой гpyппы }
       for j:=i downto c[k]+1 do a[j]:=a[j-1];
       { запись в конец k-ой гpyппы }
       a[c[k]]:=x;
       {модификация k-го индекса и всех больших }
       for j:=k to P-2 do c[j]:=c[j]+1;
       end;
 end;
 end;

//считывание из файла в мемо и в массив b
procedure TForm1.rb4Click(Sender: TObject);
begin
btn1.Visible:=false;
if dlgOpen1.Execute then
 fname:=dlgOpen1.FileName;
 if Length(fname)=0 then
 begin
 ShowMessage('Ничего не выбрано');
 rb4.Checked:=False;
 Exit;
 end;
 mmo1.Lines.LoadFromFile(fname);
 mmo1.Lines.SaveToFile(temp);
  AssignFile(f,fname);
  Reset(f);
  l:=1;
while not(Eof(f)) do    
begin
read(f,b[l]);            
inc(l);
end;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
 for i:=1 to l do begin
     sortpor(b); end;
end;

Программа запускается, но останавливается в месте:

...
 { запись в конец k-ой гpyппы }
       a[c[k]]:=x;
       {модификация k-го индекса и всех больших }
...

и выскакивает окошко с сообщением:

Project Project1.exe raised exception class EAccessViolation with message 'Access at address 045CA66 in module 'Project1.exe'. write of address 029E84D0. Process stopped. Use Step or Run to continue

Подскажите, пожалуйста, в чем ошибка

[Karina89]

подскажите, пожалуйста, кто-нибудь =(

[ByAlex]

Сообщение от Karina89

подскажите, пожалуйста, кто-нибудь =(

Скинь весь проект!