Ошибка при выполнении программы

[Гурам]

Программа решения СЛАУ методом итерации.
При выполнении программы выдает ошибку:

Project Project2.exe raised exception class EOverflow with message 'Floating point overflow'. Process stoped. Use Step or Run to continue.

Вот код программы:

procedure TForm1.Button2Click(Sender: TObject);
var
a: array[1..10,1..10] of real;
x,z,b:array[1..10] of real;
i,j,k,n,s:integer;
k1,k2,k3,r1,r2,r3,r4,r5,r0,e,i1,i2, i3,i4,i5,i0,u:real;
begin
n:=3;
//p:=200;
r0:=12/100;
r1:=strtofloat(Edit1.Text);
r2:=StrToFloat(Edit2.Text);
r3:=strtofloat(Edit3.Text);
r4:=strtofloat(Edit4.Text);
r5:=strtofloat(Edit5.Text);
e:=strtofloat(Edit6.Text);
k1:=r1+r4+r0;
k2:=r2+r3-r1;
k3:=r3+r4-r5;
StringGrid1.Cells[0,0]:=floattostr(k1);
StringGrid1.Cells[1,0]:=floattostr((-1)*r1);
StringGrid1.Cells[2,0]:=floattostr((-1)*r4);
StringGrid1.Cells[0,1]:=floattostr((-1)*r1);
StringGrid1.Cells[1,1]:=floattostr(k2);
StringGrid1.Cells[2,1]:=floattostr((-1)*r3);
StringGrid1.Cells[0,2]:=floattostr((-1)*r4);
StringGrid1.Cells[1,2]:=floattostr((-1)*r3);
StringGrid1.Cells[2,2]:=floattostr(k3);
StringGrid2.Cells[0,0]:=floattostr(e);
StringGrid2.Cells[0,1]:=floattostr(0);
StringGrid2.Cells[0,2]:=floattostr(0);
StringGrid4.Cells[0,0]:=floattostr(0);
StringGrid4.Cells[0,1]:=floattostr(1);
StringGrid4.Cells[0,2]:=floattostr(2);
for i:=1 to n do
for j:=1 to n do
a[i,j]:= strtofloat(StringGrid1.Cells[j-1,i-1]);
for i := 0 to n - 1 do
b[i + 1] := StrToFloatDef(StringGrid2.Cells[0, i], 0);
u:=0.00001;
s:=0;
for i := 0 to n - 1 do
x[i + 1] := StrToFloatDef(StringGrid4.Cells[0, i], 0);
for i:=1 to n do
z[i]:=x[i];
k:=0;
repeat
begin
for i:=1 to n do
begin
x[i]:=-b[i];
for j:=1 to n do
begin
x[i]:= x[i] + a[i,j]*z[j];
end;
if abs(x[i]/a[i,i])>u then k:=1;

x[i]:=z[i]-x[i]/a[i,i];
end;
for i:=1 to n do
z[i]:=x[i];
s:=s+1;
end;
until k<1;
for i:=1 to n do
StringGrid3.Cells[0,i-1]:=floattostrf(x[i],fffixed,5,3);
StringGrid3.Visible:=true;
end;


Останавливается на строчке x[i]:=z[i]-x[i]/a[i,i];
Что делать?

[mihali4]

Бегом читать правила раздела !