Написать программу определения количества месяцев, когда была прибыль

const n=12;
var
  Form1: TForm1;
  a:array[1..n] of double;
implementation
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
with StringGrid1 do
 begin
  fixedcols:=1;//фиксированные столбец
  fixedrows:=1; //и строка
  rowcount:=2;  //количествострок
  colcount:=n+1; //количество столбцов
  for i:=1 to n do
  colwidths[i]:=40;//ширина столбцов
  options:=options+[goEditing,goTabs];//разрешаем вводить даные
  cells[0,1]:='Прибыль';
  for i:=1 to n do
  cells[i,0]:=inttostr(i); //номера месяцев
 end;
Showmessage('Введите в таблицу числа, положительные если прибыль и отрицательные если убытки');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,kp,ko:integer;
begin
for i:=1 to n do //читаем числа из таблицы в массив
 begin
  if not TryStrTofloat(StringGrid1.Cells[i,1],a[i])
  then ShowMessage('Число в ячейке '+inttostr(i)+' введено неверно, поправьте');
 end;
kp:=0; //кол. мес. с прибылью
ko:=0; //с убытками
for i:=1 to n do
if a[i]>0 then inc(kp)
else if a[i]<0 then inc(ko);
Label1.Caption:='Количество месяцев с прибылью='+inttostr(kp)+#13#10+
                'количество месяцев с убытками='+inttostr(ko);
end;