Кол-во убывающих последовательностей

[Jigarkhwar]

Посчитать кол-во убывающих последовательностей в массиве. Есть StringGrid и Edit (для ввода кол-ва элементов массива).

implementation

{$R *.dfm}
var I,j:integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
j:=0;
for I := 0 to SG.ColCount - 1 do
begin
if (SG.Cells[I+1,0]> SG.Cells[I,0]) then
begin
j:=j+1;
end;
end;
//j:=j-1;
Label2.Caption:='Кол-во убывающих последовательностей - '+IntToStr(j);
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
SG.ColCount:=StrToInt(Edit1.Text);
end;

end.

Знаю, что условие окончания убывающей последовательности неверно. Подскажите, не обязательно прямым кодом хотя бы аналитически. Заранее спасибо.

[alex_fcsm]

j:=0;len:=0;
flag:=false;
for I := 0 to SG.ColCount - 2 
if  (SG.Cells[I+1,0]< SG.Cells[I,0]) then
        begin
          flag:=true;
          inc(len);
        end
  else if flag then begin
                         flag:=false;
                         inc(j);
                         len:=0;
                        end;
if len>1 then inc(j);

[Jigarkhwar]

Спасибо, помогло!