Сумма побочной диагонали

procedure TForm1.Button1Click(Sender: TObject);
var a:array [1..5,1..5]of integer; i,j,h,sum:integer;
begin
 sum:=0;
 for i:=1 to 5 do begin
 for j:=1 to 5 do
  begin
  if StringGrid1.Cells[i,j]=' ' then a[i,j]:=0 else begin
  a[i,j]:=StrToInt(StringGrid1.Cells[i,j]);
  end;
end;
  for h:=1 to 5 do
  sum:=sum+a[h,(5+1-h)];
  Label5.Caption:='Ñóììà: '+IntToStr(sum);
  end;
  end;

if StringGrid1.Cells[i,j]=' ' then a[i,j]:=0 else begin
  a[i,j]:=StrToInt(StringGrid1.Cells[i,j]);

if StringGrid1.Cells[i,j]=' ' then a[i-1,j-1]:=0 else begin
  a[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1]);

for h:=1 to 5 do
  sum:=sum+a[h,(5+1-h)];
  Label5.Caption:='Сумма: '+IntToStr(sum);

procedure TForm1.Button1Click(Sender: TObject);
var a:array [1..5,1..5]of integer;
i,j,h,sum:integer;
begin
sum:=0;
for i:=1 to 5 do
for j:=1 to 5 do
if StringGrid1.Cells[i,j]=' ' then a[i,j]:=0 else
a[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1]);
for h:=1 to 5 do
sum:=sum+a[h,(5+1-h)];
Label1.Caption:='Сумма: '+IntToStr(sum);
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:array [1..5,1..5]of integer; i,j,h,sum:integer;
begin
 sum:=0;
 for i:=1 to 5 do begin
 for j:=1 to 5 do
  begin
  if StringGrid1.Cells[i,j]=' ' then a[i,j]:=0 else begin
  a[i,j]:=StrToInt(StringGrid1.Cells[i,j]);
  end;
end;
end;
  for h:=1 to 5 do
  sum:=sum+a[h,(5+1-h)];
  Label5.Caption:='Сумма: '+IntToStr(sum);
 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a: array [1..4, 1..4] of Integer;
  Res, i, j: Integer;
begin
  Randomize;
 
  for i:=1 to 4 do
    for j:=1 to 4 do begin
      a[i, j]:=RandomRange(1, 10);
      StringGrid1.Cells[i, j]:=IntToStr(a[i, j]);
    end;
 
  i:=4;
  Res:=0;
 
  for j:=1 to 4 do begin
    Res:=Res+a[i, j];
    i:=i-1;
  end;
 
  Form1.Caption:=IntToStr(Res);

uses
  ..., Math;