const
  m=10;

type

  Vector = array[1..m] of Double;
  Matrix = array[1..m] of Vector;

<------------->
<------------->
<------------->
<------------->
<------------->
<------------->
<------------->

procedure TForm1.Button1Click(Sender: TObject);
  var
    a: Matrix;
    b,x: Vector;
    i,j,k,n: integer;
    h: double;
  begin
      n:=StrToIntDef(Text,StringGrid1.ColCount); <---Начало
      for j:=0 to n-1 do
        for i:=0 to n-1 do
          a[i+1,j+1]:=StrToFloatDef(StringGrid1.Cells[j,i],0);
      for i:=0 to n-1 do
        b[i+1]:=StrToFloatDef(StringGrid2.Cells[0,i],0);
      for i:=1 to n-1 do
          for j:=i+1 to n do
          begin
            a[j,i]:=-a[j,i]/a[i,i];
            for k:=i+1 to n do
              a[j,k]:=a[j,k]+a[j,i]*a[i,k];
              b[j]:=b[j]+a[j,i]*b[i]
          end;
          x[n]:=b[n]/a[n,n]; <--- Конец прямого хода
      for i:=n-1 downto 1 do <--- Начало обратного хода
        begin
          h:=b[i];
          for j:=i+1 to n do
            h:=h-x[j]*a[i,j];
          x[i]:=h/a[i,i];
        end; <--- Конец обратного хода
      for i:=1 to n do
        ListBox1.Items.Append('x('+IntToStr(i)+')='+FloatToStr(x[i])); 
  end;