В заданном числовом массиве определить и вывести индексы последовательностей чисел которые монотонно убывают

var
  Form1: TForm1;
  a:array of integer;
  n:integer;
implementation
 
{$R *.dfm}
//зададим размер массива
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(Edit1.Text);
setlength(a,n); //выделим память под массив
stringgrid1.ColCount:=n; //размер таблицы(кол. колонок)
ShowMessage('Введите в таблицу целые числа, в том числе убывающие последовательности');
end;
//решение задачи
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k,i1,i2:integer;
begin
//прочитаем числа из таблицы в массив
for i:=0 to n-1 do
a[i]:=strtoint(stringgrid1.Cells[i,0]);
Memo1.Clear;
Memo1.Lines.Add('Индексы убывающих последовательностей');
k:=0;
i:=1;
while i<n do//пройдем по массиву
if a[i]<a[i-1] then//если меньше предыдущего
 begin
  k:=1;//фиксируем наличие убывающей последовательности
  i1:=i-1; //запомним индекс ее начала
  j:=i;//пойдем вперед пока убывают
  while(j<n)and(a[j]<a[j-1]) do inc(j);
  i2:=j-1;//запомним индекс конца последовательности
  //запишем индексы, точнее номера, так понятнее в Мемо
  Memo1.Lines.Add('['+inttostr(i1+1)+'..'+inttostr(i2+1)+']');
  i:=j;
 end
else inc(i);
if k=0 then Memo1.Lines.Add('Нет убывающих последовательностей')
end;