При компиляции сообщает о деление на нуль

[Homutova_Julia]

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

procedure TForm1.Button1Click(Sender: TObject);
var a: Matrix;
b,x: Vector;
c, max,m,s: real;
i,j,k,r,n:byte;
begin
n:=4;
Label1.Caption:='';
Label2.Caption:='';
for j := 1 to n do
for i := 1 to n do
a[i + 1, j + 1] := StrToFloatDef(StringGrid1.Cells[j, i],0);
for I :=1 to n do b[i + 1] := StrToFloatDEF(StringGrid2.Cells[0, i],0);
//Поиск максимального (главного) элемента
For k:=1 to n do
begin
max:=Abs(a[k,k]);
r:=k;
for i:=k+1 to n do
if Abs(a[i,k])>max then
begin
max:=Abs(a[i,k]);
r:=i;
end;
for j:=1 to n do
begin
c:=a[k,j];
a[k,j]:=a[r,j];
a[r,j]:=c;
end;
c:=b[k];
b[k]:=b[r];
b[r]:=c;
// приведение расширенной матрицы к диагональному виду
for i:=k+1 to n do
begin
m:=a[i,k]/a[k,k];
for j:=k to n do
a[i,j]:=a[i,j]-m*a[k,j];
b[i]:=b[i]-m*b[k];
end;
end;
// обратный ход метода Гауса
x[n]:=b[n]/a[n,n];
for i:=n downto 1 do
begin
s:=0;
for j:=i+1 to n do
s:=s+a[i,j]*x[i];
x[i]:=(b[i])/a[i,i];
end;

for i:=1 to n do
label1.Caption:=label1.Caption+#13+ 'x('+Inttostr(i)+')= '
+ FormatFloat('0.000',x[i])+#13;
end;

[VIK_aka_TOR]

for j := 1 to n do
for i := 1 to n do
a[i + 1, j + 1] := StrToFloatDef(StringGrid1.Cells[j, i],0);

тут вроде как если не получается из стрингрида вытяянуть значение то присваивается элементу нуль...

for i:=k+1 to n do
begin
m:=a[i,k]/a[k,k];

и

x[n]:=b[n]/a[n,n];

и

for j:=i+1 to n do
s:=s+a[i,j]*x[i];
x[i]:=(b[i])/a[i,i];

собственно само деление... в каком то из них и происходит ваше деление на нуль... либо изменяйте StrToFloatDef при ошибке значение... либо осуществляйте контроль что бы ошибок не было... либо поставьте иное значение при ошибке...

по данному коду такие от размышления...
если говорит что делит на нуль.. .значит так и есть... матрица каким то образом содержит нули...

P.S. если при компиляции ругается... то видимо не в этом может быть даже ошибка процедуре... посмотрите formcreate... может там что... так как эта процедура выполняется лишь при нажатии первого батана.. если конечно вы в креате не вызываете его..