Работа с матрицами

procedure TForm1.PageControl1Change(Sender: TObject);
begin
n:=StringGrid1.ColCount;
k:=0;
sr:=0;
For i:=0 to n-1 do
For j:=0 to n-1 do
a[i+1,j+1]:=StrToInt(StringGrid1.Cells[j,i]);
For i:=1 to n-1 do
For j:=i+1 to n do
begin
k:=k+1;
sr:=sr+a[i,j];
end;
sr:=sr/k;
Edit2.Text:=('Среднее арифметическое элементов над главной диагональю=' + FloatToStr(sr));
j:=n+1;
For i:=1 to n do
begin
j:=j-1;
s:=s+a[i,j];
end;
Edit3.Text:=('Сумма элементов побочной диагонали=' + IntToStr(s));
if sr>s then begin
For i:=1 to n do
For j:=1 to n do begin
b:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=b;
end;
For i:=0 to n-1 do
For j:=0 to n-1 do
StringGrid1.Cells[j,i]:=IntToStr(a[j+1,i+1]);
end;
end;

StringGrid1.Cells[j, i] := IntToStr(a[i + 1, j + 1]);

for i := 0 to n - 1 do
  for j := 0 to n - 1 do
   StringGrid1.Cells[i, j] := IntToStr(A[i + 1, j + 1]);

procedure TForm1.PageControl1Change(Sender: TObject);
begin
n:=StringGrid1.ColCount;
k:=0;
sr:=0;
For i:=0 to n-1 do
For j:=0 to n-1 do
a[i+1,j+1]:=StrToInt(StringGrid1.Cells[j,i]);
For i:=1 to n-1 do
For j:=i+1 to n do
begin
sr:=sr+a[i,j];
k:=k+1;
end;
sr:=sr/k;
Edit2.Text:=('Среднее арифметическое элементов над главной диагональю=' + FloatToStr(sr));
j:=n+1;
For i:=1 to n do
begin
j:=j-1;
s:=s+a[i,j];
end;
Edit3.Text:=('Сумма элементов на побочной диагонали=' + IntToStr(s));
if sr>s then begin
for i:=0 to n-1 do
for j:=0 to n-1 do
StringGrid1.Cells[i, j]:=IntToStr(a[i+1,j+1]);
end;
end;

a: array of array of Integer;

SetLength(a, n, n);

count := 0;
sumG := 0;
for i := 0 to n - 1 do
  for j := 0 to n - 1 do
    if i < j then
    begin
      sumG := sumG + a[i, j];
      Inc(count); 
    end;
if count > 0 then
  avg := sumG / count;   // наше среднее

sumP := 0;
for i := 0 to n - 1 do
  for j := 0 to n - 1 do
    if i + j = n + 1 then
      sumP := sumP + a[i, j];