[angvelem]

В какой строке ошибка, в 43?

Код:

  else a[i,j]:=0;

чему здесь равно J?

Код:

 a[i]:= strtofloat(stringgrid1.Cells[i-1,0]) else a[i,j]:=0;

как то определись, массив одномерный или двумерный.