Определить количество и сумму отрицательных элементов на главной и побочной диагоналях матрицы

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Spin;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    SpinEdit1: TSpinEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//автоматическая настройка StringGrid
StringGrid1.FixedCols := 0;
StringGrid1.FixedRows := 0;
StringGrid1.DefaultColWidth := 40;
StringGrid1.Align := alLeft;
StringGrid1.Width := 500;
//автоматическая настройка SpinEdit
SpinEdit1.Left := StringGrid1.Width + 50;
//автоматическая настройка Кнопки Button
Button1.Left := StringGrid1.Width + 50;
//автоматическая настройка Label
Label1.Left := StringGrid1.Width + 50;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
a : array of array of Integer;
n,i,j,count,s: Integer;
begin
n := SpinEdit1.Value; //размерность матрицы
SetLength(a, n, n);//установка размерва массива (выделение памяти)
//установить размер таблицы StringGrid для вывода матрицы на экран
StringGrid1.ColCount := n;
StringGrid1.RowCount := n;
 
randomize;
{Процедура Randomize используется вместе с функцией Random.
Она устанавливает генератор случайных чисел в его последовательность из 232 псевдослучайных чисел.
Randomize для этого повторного установления использует время дня как начальное значение,
обеспечивая, таким образом, надежный метод создания непредсказуемой последовательности чисел,
даже если они часть предопределенной последовательности.}
 
//формирование матрицы из случайных чисел
//в диапазаоне от -20 до +20
for i := 0 to n-1 do
for j := 0 to n-1 do Begin
    a[i,j] := 20 - Random(41);
    StringGrid1.Cells[j,i] := IntToStr(a[i,j]);
    End;
 
//подсчет суммы и количества
s := 0;
count := 0;
//на главной диагонали:
for i := 0 to n-1 do if a[i,i] < 0 then begin
    inc(s, a[i,i]); //s := s  + a[i,i]
    inc(count); //count := count  + 1;
    end;
//на побочной
for i := 0 to n-1 do if a[i,(n-1)-i] < 0 then begin
    inc(s, a[i,(n-1)-i]); //s := s  + a[i,i]
    inc(count); //count := count  + 1;
    end;
//если важно учесть центральный элемент (он может посчитаться 2 раза)
{
if a[n-1 div 2, n-1 div 2] < 0 then Begin
   Dec(s, a[n-1 div 2, n-1 div 2]);
   Dec(count);
   End;
}
//вывод суммы и кол-ва
Label1.Caption := 'Сумма отрицательных: ' + IntToStr(s) + #13#10 + 'Их количество: ' + IntToStr(count);
end;
 
end.

try
   n := StrToInt(Edit1.text);
except
ShowMessage('Некорректные данные');
exit;
end;