Не могу найти причину ошибки

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
Vector = array[1..100] of Extended;
Matrix = array[1..100] of Vector;
  TForm1 = class(TForm)
    SG1: TStringGrid;
    SG2: TStringGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Label8: TLabel;
    SG3: TStringGrid;
    Edit2: TEdit;
    Label9: TLabel;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
a: Matrix;
b,x: Vector;
n:integer;
Form1: TForm1;
x0: extended;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var m:integer;
begin
m:=strtoint(edit1.text);
SG1.colCount:=m;
SG1.rowCount:=m;
SG2.colCount:=1;
SG2.rowCount:=m;
SG3.colCount:=1;
SG3.rowCount:=m;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  s1, k: double;
  eps: real;
  i, j: integer;
//  q: boolean;
begin
n:=StrToInt(Edit1.Text);
for j:=1 to n do
  for i:=1 to n do
    a[i,j]:=StrToFloat(SG1.Cells[j-1,i-1]);
eps:=StrToFloat(Edit2.Text);
for i:=1 to n do
  b[i]:=StrToFloat(SG2.Cells[0,i-1]);
begin
  repeat
  k:=0;
  for i := 1 to n do
  begin
    s1 := 0;
    For j := 1 to n do
      if i <> j then
        s1 := s1 + a[i, j]*x[j];
    x0 := x[i];
    x[i] :=(b[i]-s1)/a[i,i];
    k:=abs(x[i])-abs(x0);
  end;
  inc(j);
  Until k < eps;
 
for i:=1 to n do
begin
  s1:=0;
  for j:=1 to n do
    if j<>i then
      s1:=s1+abs(a[i,j]);
  if s1 >= abs (a[i,i]) then
  begin
    Memo1.Lines.Add('Метод Зейделя не сходится для данной системы');
    break;
  end;
end;
end;
 
  for i:=1 to n do
    SG3.cells[0,i-1]:=FloatToStr(x[i]);
  Memo1.Lines.Add(' Количество итераций: '+IntToStr(j));
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.text:='2';
SG1.Cells[0,0]:='1';
SG1.Cells[0,1]:='3';
SG1.Cells[1,0]:='2';
SG1.Cells[1,1]:='5';
SG2.Cells[0,0]:='4';
SG2.Cells[0,1]:='5';
end;
 
end.