[Demonuka]

Необходимо и массив делать нецелочисленного типа
a: array [1..200] of real;
А вместо

Код:

then a[i]:=strtoint (stringgrid1.cells[i-1,0])

писать

Код:

then a[i]:=strtofloat (stringgrid1.cells[i-1,0])