Найти минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы.

procedure TForm1.PageControl1Change(Sender: TObject);
begin
n:=StringGrid1.ColCount;
m:=StringGrid1.RowCount;
For i:=0 to n-1 do
For j:=0 to m-1 do
a[i+1,j+1]:=StrToInt(StringGrid1.Cells[j,i]);
For i:=1 to n do
For j:=1 to m do
StringGrid1.Cells[j,i]:=IntToStr(a[i+1,j+1]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var m,i,j,k,s,min:integer;
    a:array of array of integer;
begin
randomize;
repeat
m:=strtoint(inputbox('','Введите размер матрицы n>2= n=','0'));
until m>2;
setlength(a,m,m);
with StringGrid1 do
 begin
  fixedcols:=0;
  colcount:=m;
  fixedrows:=0;
  rowcount:=m;
  defaultcolwidth:=30;
  for i:=0 to m-1 do
  for j:=0 to m-1 do
   begin
    a[i,j]:=-10+random(21);
    cells[j,i]:=inttostr(a[i,j]);
   end;
  end;
min:=a[0,m-1];
Memo1.Clear;
//выше диагонали и на ней
for k:=m-1 downto 0 do
 begin
  i:=0;
  j:=k;
  s:=0;
  while j<m do
   begin
    s:=s+a[i,j];
    inc(i);
    inc(j);
   end;
  if s<min then min:=s;
  Memo1.Lines.Add('диагональ '+inttostr(m-k)+'='+inttostr(s));
 end;
//ниже диагонали 
for k:=1 to m-1 do
 begin
  i:=k;
  j:=0;
  s:=0;
  while i<m do
   begin
    s:=s+a[i,j];
    inc(i);
    inc(j);
   end;
  Memo1.Lines.Add('диагональ '+inttostr(m+k)+'='+inttostr(s));
  if s<min then min:=s;
 end;
Memo1.Lines.Add('Минимальная сумма='+inttostr(min))
end;