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

var
  Form1: TForm1;
  a: array of double;
  n: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблиц
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=40;
  rowcount:=1;
  scrollBars:=ssHorizontal;
 end;
with StringGrid2 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=40;
  rowcount:=1;
  scrollBars:=ssHorizontal;
 end;
Label2.Caption:='Массив  А';
Label3.Caption:='Наибольшая возрастающая последовательность';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
//проверим ввод размеров
val(Edit1.Text,n,i);
if (i<>0)or (n<3)then
 begin
  ShowMessage('Неверно введен размер массива');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
Setlength(a,n);
StringGrid1.ColCount:=n;
for i:=0 to n-1 do
 begin
  a[i]:=10*random;
  StringGrid1.Cells[i,0]:=formatfloat('0.00',a[i]);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var  i,j,k,mx,imx:integer;
begin
i:=1;
mx:=0;
imx:=0;
while i<n do
if a[i]>a[i-1] then
 begin
  j:=i;
  k:=1;
  while (a[j]>a[j-1])and(j<n) do
   begin
    j:=j+1;
    k:=k+1;
   end;
  if k>mx then
   begin
    mx:=k;
    imx:=i-1;
   end;
  i:=i+k;
 end
else i:=i+1;
if mx=0 then ShowMessage('Нет участков возрастания!')
else
 begin
  StringGrid2.ColCount:=mx;
  for i:=imx to imx+mx-1 do
  StringGrid2.Cells[i-imx,0]:=formatfloat('0.00',a[i]);
 end;
end;