Объяснить значение строки кода

StringGrid1.Cells[j,i]:=inttostr(a[i,j]);

//сортировка массива
procedure TForm1.Button3Click(Sender: TObject);
var i,j,x:integer;
begin
Setlength(b,m,k);
copy_mtr(a,b);
for i:=0 to m*k-2 do
for j:=i+1 to m*k-1 do
if b[i div k,i mod k]>b[j div k,j mod k] then
 begin
  x:=b[i div k,i mod k];
  b[i div k,i mod k]:=b[j div k,j mod k];
  b[j div k,j mod k]:=x;
 end;
StringGrid2.RowCount:=m;
StringGrid2.ColCount:=k;
for i:=0 to m-1 do
for j:=0 to k-1 do
StringGrid2.Cells[j,i]:=inttostr(b[i,j]);     //cells-ячейки объекта
end;

//сортировка массива
procedure TForm1.Button3Click(Sender: TObject);
var i,j,x:integer;
begin
Setlength(b,m,k); //выделяем память под массив b, m*k ячеек
copy_mtr(a,b);//копируем исходный массив а в массив b(процедура описана выше)
for i:=0 to m*k-2 do //от 0 до предпоследнего элемента массива
for j:=i+1 to m*k-1 do //от этого элемента+1 до последнего элемента
if b[i div k,i mod k]>b[j div k,j mod k] then //если элемент в ячейке [i div k,i mod k]
                                              // больше элемента в ячейке b[j div k,j mod k]
 begin   //обмениваем элементы местами
  x:=b[i div k,i mod k];
  b[i div k,i mod k]:=b[j div k,j mod k];
  b[j div k,j mod k]:=x;
 end;
StringGrid2.RowCount:=m; //задаем количество строк в таблице 2
StringGrid2.ColCount:=k; //задаем количество столбцов
for i:=0 to m-1 do //пишем в таблицу элементы матрицы
for j:=0 to k-1 do  //индексы элементов в матрице и в таблице наоборот
StringGrid2.Cells[j,i]:=inttostr(b[i,j]);     //cells-ячейки объекта
end;

function rec(n:integer):real;
  begin
    if n=1 then  rec:=2*(n+3)/((5*sqr(n)+7)*(n+1))
    else rec:=rec(n-1)+(2*(n+3)/((5*sqr(n)+7)*(n+1))); 
  end;
 
function round(n:integer;eps:real):real;
  begin
    round:=2*(n+3)/((5*sqr(n)+7)*(n+1));
    if (2*(n+3)/((5*sqr(n)+7)*(n+1)))<eps then exit;
    round:=round(n+1,eps)+(2*(n+3)/((5*sqr(n)+7)*(n+1))); ammount:=ammount+1;
  end;
 
 
procedure TfmMain.Button2Click(Sender: TObject);
var n:integer;
  begin
    n:=StrToInt(Edit1.Text);
    Edit2.Text:= FloatToStr(rec(n));
  end;
 
procedure TfmMain.Button3Click(Sender: TObject);
begin
  if StrToFloat(Edit3.Text)=0.01 then begin Edit4.Text:=FloatToStr(round(1,0.01)); Edit5.Text:=IntToStr(ammount) end
  else if StrToFloat(Edit3.Text)=0.001 then begin Edit4.Text:=FloatToStr(round(1,0.001)); Edit5.Text:=IntToStr(ammount) end
  else if StrToFloat(Edit3.Text)=0.0001 then begin Edit4.Text:=FloatToStr(round(1,0.0001)); Edit5.Text:=IntToStr(ammount) end
  else begin Edit4.Text:='Ошибка'; Edit5.Text:='Ошибка' end;
  ammount:=0;
end;