Двумерные массивы

for i:=1 To Index1 Do
Begin
  for j:=1 to Index2 do
  Label2.caption:=label2.caption+' '+IntTostr(a[i,j]);
 
  Label2.caption:=label2.caption+#13; //Перенос на следующую строку
end;

  for i:=1 To Index1 Do
  for j:=1 to Index2 do
  StringGrid1.Cells[j-1,i-1]:=IntTostr(a[i,j]);

procedure TForm1.N3Click(Sender: TObject);
Var
  i,j : Integer;
  ss : Set Of 1..4;
  ch : Char;
  z: array [1..4] of real;
  t: array [1..4] of Integer;
begin
  ss:=[];
  z[1]:=Sled1(SGrA);
  z[2]:=Sled1(SGrB);
  z[3]:=Sled2(SGrC);
  z[4]:=Sled2(SGrD);
 
  //Сортируем по возрастанию
  For i:=1 To 4 Do
  Begin
    t[i]:=0;
    For j:=1 To 4 Do
    If Not (j In ss) Then
    If ((t[i]=0) Or (z[t[i]]>z[j])) Then
    t[i]:=j;
 
    Include(ss,t[i]);
  End;
 
  //Выдаём в Label
  label6.Caption:='Сформированные следы:'+#13;
  For j:=1 To 4 Do
  Begin
    ch:='D';
    Case t[j] Of
    1 : ch:='A';
    2 : ch:='B';
    3 : ch:='C';
    End;
    Label6.Caption:=label6.Caption+'След матрицы '+ch+': '+FloatToStr(z[t[j]])+#13;
  End;
end;

procedure TForm1.N3Click(Sender: TObject);
Var
  i,j : Integer;
  ss : Set Of 1..4; //Множество для запоминания уже отсортированных значений, чтобы повторно их не учитывать
  ch : Char;
  z: array [1..4] of real; //Массив в котором будут исходные следы (с массивом легче работать в цикле)
  t: array [1..4] of Integer; //Массив в котором будут индексы элементов массива Z в порядке сортировки
begin
  ss:=[]; //Множество пусто
  //Заносим следы в массив...
  z[1]:=Sled1(SGrA);
  z[2]:=Sled1(SGrB);
  z[3]:=Sled2(SGrC);
  z[4]:=Sled2(SGrD);
 
  //Сортируем по возрастанию
  For i:=1 To 4 Do
  Begin
    t[i]:=0;
    For j:=1 To 4 Do //Ищем в исходном массиве минимальный элемент
    If Not (j In ss) Then //Если элемент ещё не отсортирован
    If ((t[i]=0) Or (z[t[i]]>z[j])) Then //Если индекс ещё равен 0 или тек.эл. массива меньше
    //запоминаем его индекс
    t[i]:=j; 
 
    Include(ss,t[i]); //Отмечаем, что найденный минимальный элемент уже отсоротирован (индекс в множество)
  End;
 
  //Выдаём в Label
  label6.Caption:='Сформированные следы:'+#13;
  For j:=1 To 4 Do
  Begin
    ch:='D'; //Если индекс будет равен 4 - останется буква "D"
    Case t[j] Of //Определяем букву матрицы по индексу в массиве Z
    1 : ch:='A';
    2 : ch:='B';
    3 : ch:='C';
    End;
    Label6.Caption:=label6.Caption+'След матрицы '+ch+': '+FloatToStr(z[t[j]])+#13;
  End;
end;

Function Sled(x:TStringGrid;Index:Integer):Real;
Var i:integer;sl:real;
Begin
  sl:=0;
  For i:=0 to x.RowCount-1 do sl1:=sl1+StrToFloat(x.cells[i,i]);
  z[Index]:=sl; //Сразу пишем значение в массив
  Result:=sl;
end;

Sled(SGrA,1);
Sled(SGrB,2);
Sled(SGrC,3);
Sled(SGrD,4);